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TEMPOA is a computer interactive version of the orignial 
General Electric TEMPO game, and is written for the Apple III 
microcomputer. A minimum of two players vie for a strategic 
'win' through judicious budgetary planning in the development 
and procurement of realistic weapon systems. All decisions 
are subject to the constraints of limited budgets, hardware 
inventories, research and development time lags and the uncer¬ 
tainties of war and inflation. A third party, assuming the 
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I. 


INTRODUCTION 


The simulation exercise TEMPO is an example of the histor¬ 
ical interest shown towards wargaming by the U.S. military. 

The TEMPO military planning game was conceived and designed 
by the Technical Military Planning Organization (TEMPO) of 
General Electric Company of Santa Barbara, California, in the 
early sixties as a strategic budget planning wargame. 

While originally a manually played simulation, TEMPO was 
designed to pit the budgetary planning and decision making 
skills of opposing teams against one another, victory being 
achieved when one team had gained a clear superiority of 
capabilities at game end. Both the measures of superiority 
and the goal of the exercise are two aspects of the game 
which have undergone changes during the ensuing two decades 
since its original inception. 

Receiving wide dissemination in both civilian and mili¬ 
tary communities, the game has been used by the Defense 
Resources Management Course at the Naval Postgraduate School; 
the U.S. Army Management School at Ft. 3elvoir, Virginia; 
the Air War College, Air Command and Staff College, and Squa¬ 
dron Officers' School all at Maxwell Air Force Base, Alabama. 
As recently as 1931 TEMPO was introduced as a software simu¬ 
lation on the PDP 11/70 computer in the Naval Postgraduate 
School's Command, Control and Communications (C3) Laboratory. 
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TEMPOA, the subject of this thesis, is an adaptation of 
a version of TEMPO to the Apple III microcomputer- Considered 
by many to be 'state-of-the-art' at this date, the Apple III 
with its 128K expandable memory lends itself to large scale 
programming in a way never before available to such a vast 
audience. 

As a software device for the Apple III, the TEMPOA 
program will enable users to simulate the decision making 
process and resource management dilemmas embodied in the 
weapons development and procurement processes. While an 
attempt has been made to accurately replicate annual budget 
overheads, research and development constraints, time 
limitations and the uncertainties of war and inflation, the 
game is only a facsimile and falls short of realism on 
several counts, as detailed later. However, the highlights 
of the original game and the major influences in the 
budgeting process are contained in TEMPOA, and the adapta¬ 
tion is an enhancement in many ways over previous versions. 
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II. GENERAL DESCRIPTION 


TEMPOA requires at a minimum two players and an umpire. 
The players align themselves into two teams and alternate 
during the game in making annual procurement and investment 
decisions. The game simulates a period of time of up to 
twenty years, and can be terminated at the close of any year 

Player decisions revolve about the development and 
procurement of new weapon systems (research and development) 
the buildup or scrapping of systems existing in current 
inventories and the investment of funds into intelligence 
gathering activities. Decisions are transformed into 
expenditures, which in turn promote a player's global capa¬ 
bilities. These capabilities are directly assessed in 
terms of weapon system 'utils', a single measure assigned 
each unit of a particular system. 

Each player may be faced with choices affecting up to 
thirty weapon systems during the play of the game. Systems 
are of two basic sorts, offensive or defensive, and are 
further subdivided into two categories, weapon system type 
A (strategic) or weapon system type 3 (tactical). A type 3 
defensive weapon system may only be used to defend against 
a type B offensive weapon system. Type A systems are 
similarly constrained. 
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At the conclusion of each year, after both players have 
completed and entered all decisions for the year, TEMPOA 
computes an annual winner based on gross offensive weapon 
system utility points accumulated by each player for systems 
in inventory, discounted by the appropriate defensive system 
utility values amassed by his opponent. If a large discrep¬ 
ancy exists between player standings, then there exists a 
significant possibility of war, as computed by an algorithm 
detailed later. A war translates to a healthy budget cut 
for the player with the lesser net utility score. 

The role of the umpire is twofold; to initialize all 
game parameters at the outset, and to monitor the annual 
play. A major enhancement in the current version of TEMPOA 
is the degree of control exercised by the game umpire in 
selecting game parameters. The term 'game parameters' 
loosely refers to individual system parameters (twenty 
total) of up to thirty game weapon systems, the expected 
values for annual players' operating budgets, and the means 
by which the war event is to be determined. In all cases, 
default values are available. 

All computations, which in most previous versions were 
accomplished with tedium and exasperation by hand, are 
carried out internally by TEMPOA. Pertinent results are 
displayed immediately to players during the game, and each 
player is presented annually with the opportunity for 
obtaining a printed summary of his current inventory and his 
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budget status (assuming a compatible printer is configured 
to the Apple III RS232 port or that an Apple Silentype 
printer is utilized). 

At the conclusion of any game year the umpire may select 
to halt the present game for resumption at a later time. 

Upon resumption, TEMPOA begins with the game year subsequent 
to the termination of the original play, and proceeds using 
all game parameters effective during the last active play. 

In this manner, play may be periodically postponed to allow 
for in depth examination of the game situation, a more 
extensive analysis and forecast of decision consequences, or 
simply to enable the simulation of several decades of 
systems development in the game while allowing the players 
to proceed in their decisions at a more leisurely pace. 
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III. THE PLAY 


The following sections detail step-by-step each facet 
of the game play. The software itself has been designed 
so as to minimize the amount of preparatory work necessary 
for the actual play, and no prior information on the part 
of the players, beyond knowledge of the gaming objective 
itself, is presumed by TEMPOA. While TEMPOA was written to 
be self-explanatory and user friendly, a familiarity with 
this document will enhance a player's performance. 

A. OBJECTIVE 


System Points 


Points ■ 

allotted 


Under 2000 



Face Value 



2000-2999 

2000 

+ 

90% 

of 

amoun t 

over 

2000 

3000-3999 

2900 

+ 

80% 

of 

amount 

over 

3000 

4000-4999 

3700 

+ 

70% 

of 

amount 

over 

4000 

5000-5999 

4400 

+ 

60% 

of 

amount 

over 

5000 

6000-6999 

5000 

+ 

50% 

of 

amount 

over 

6000 

7000-7999 

5500 

+ 

40% 

of 

amount 

over 

7000 

3000-8999 

5900 

+ 

30% 

of 

amount 

over 

8000 

9000-9999 

6200 

+ 

20% 

of 

amount 

over 

9000 

10000-10999 

6400 

+ 

10% 

of 

amount 

over 

10000 

Over 11000 



6500 

(maximum) 



Figure 3.1 Utility Point Discount Rate 


Each player begins TEMPOA with the same collection of 
weapon systems. Each system can be one of four distinct 
types; offensive type A (OA), defensive type A (DA), offen¬ 
sive type B (CB), or defensive type B (DB). In addition. 
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when the program initializes, a unique utility value is 
assigned to units of each weapon system. The gross util 
value of that system is determined as the product of the 
system unit util value and the number of units of that 
weapon system in current inventory. This product is then 
discounted to reflect the diminishing marginal returns 
associated with increasing quantities of a given system. 

The discount rate is depicted in Figure 3.1. Summing the 
final gross figure over all systems of that type (OA, for 
example), results in the total player capability figure for 
that weapon system type. 

If system type A is translated to mean a ’strategic' 
weapon system, and type B a 'tactical' system, then it 
follows that a type DA system would only be used to counter 
the opponent's type OA weapon system threat. To carry this 
notion out mathematically and arrive at a single net utility 
score for a player, his total util figures for his offensive 
system types are decremented by his opponent's corresponding 
defensive util figures. When the defense for a system type 
exceeds the value of the opponent's offense for that weapon 
system collection, then the net offensive value of the 
system type is zero. That is, no credit is given for 
exceeding the utility figure necessary to neutralize an 
opponent's offensive capability. Figure 3.2 is an example 
of how TEMPOA's algorithm is carried out in practice. 
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Annually, TEMPOA determines which player achieves the 
greatest net utility figure and declares him winner. Ties 
are called when opposing net utility figures are equal. 

The effects of a player's decisions spill over from one 
year to the next, and the inventories of a given year may 
be viewed as histories, cumulative figures which encapsule 
all previous game decisions. As a result, the annual winner 
has done more than acquire a victory during that cycle of 
the game play, and has achieved a cumulative superiority 
over his opponent. The winner declared at year end, then, 
is the collective winner of the game to date as well. 

The players' goal is to achieve offensive superiority 
while thwarting his opponent's efforts through an adequate 
defense. This goal will be frustrated by budget ceilings 
and the uncertainties as to where the opponent is channeling 
his resources. 

3. STARTING 

The following subsections deal with the initial setup of 
TEMPOA; program activation, preliminary data entry, and the 
role of the umpire. 

1. Preliminaries 

The TEMPOA program is booted (initialized) by 
inserting the 5 1/4" floppy 'TEMPOA DISK 1" diskette into 
the Apple Ill's internal aisle drive and turning the computer 
on. The boot is successful when the program logo is dis¬ 
played on the monitor. 
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Following the displayed instructions, players will 
be queried as to whether the current game is a resumption 
of a previous play, or whether it is to be a fresh game. 

The intent of this option is explained later. In most cases 
the game will be a new play. 

When players arrive at the point depicted in Figure 
3.3 they are asked to enter their respective player/team 
names. For identification purposes, the program requires 
each player/team to use a distinct title. The program will 
distinguish between upper and lower case entries. 

Additionally, TEMPGA requires of each player a code¬ 
word. This codeword is a keyboard entry which will act as 
identification verification annually, prior to allowing 
access to that portion of TEMPOA reserved for recording 
players' decisions and budget information. The present 
insertion is the only instance when the entered codeword is 
visible (and once the RETURN key is depressed, the entered 
codeword vanishes). Throughout the remainder of the game, 
entered codewords do not show up on the monitor. It is 
strongly suggested therefore that chosen codewords be brief, 
be either all upper case letters or all lower case letters, 
and lend themselves to easy memorization. There is no 
recovery for forgotten codewords. 

Players will be advised to insert TEMPOA DISK 2 into 
the external drive. After confirming the insertion by 
pressing RETURN, a delay of 10-15 seconds occurs while player 
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Player 1 Player 2 


System 

Total 

System 

Total 

Type 

Utils 

Type 

Utils 

OA 

800 

OA 

1000 

OB 

1000 

OB 

900 

DA 

1200 

DA 

1000 

DB 

900 

DB 

800 

PLAYER 

1 NET SCORE: 




Player 1 OA 


800 

Sys 

- Player 2 DA 


-1000 

A 

= Net System A 


= -200 


(if negative, set 

to 0) 

(set to 


Player 1 OB 


1000 

Sys 

- Player 2 DB 


- 800 

B 

- Net System 3 


= 200 


(if negative, set to 0) 


NET VALUE = SYS A + SYS B = 0 + 200 = 200 


Figure 3.2 Player 1 Net Utility Computation 


Enter the name of Player Number 1 (Then press RETURN) 
Enter a codeword for Player 1 (Then press RETURN): 

Enter the name of Player Number 2 (Then press RETURN) 
Enter a codeword for Player 2 (Then press RETURN): 


ENSURE TEMPO DISK #2 IS LOADED INTO DRIVE #2 
<Press RETURN to Continue> 


Figure 3.3 Player Data Entry Page 
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information is recorded and pertinent segments of the main 
program are loaded into computer memory. 

2. Umpire 


*************************** 

*** UMPIRE INSTRUCTIONS *** 
*************************** 

* Printer Status * 

Enter the number corresponding to printer status: 

1.. .RS232 UNIT attached and configured to 

receive data 

2.. .APPLE SILENTYPE UNIT attached 

3.. .Printer either not connected or not of 

option type 

Figure 3.4 Printer Selection 

The umpire segment and the main code file has been 
successfully retrieved from DISK 2 and loaded into main 
memory when the display depicted in Figure 3.4 appears on 
the monitor, unless the play is a continuation of a previous 
game. In the latter case, the monitor displays a codeword 
request page for player access for the year following the 
point the play was previously interrupted. And in any event, 
if the computer fails to communicate with the diskette loaded 
in the external drive, the cue 'FILE TEMPOA: TEMPOA.CODE 
NOT FOUND' will appear at the top of the monitor, and drive 
activity will halt. The players should re-insert TEMPOA 
DISK 2 into the external drive and reinitialize the Apple III. 
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Following the successful code file loading, the 
umpire is requested to indicate what type of printer is 
connected to the Apple III. Both a printed forecast and 
an exhaustive annual summary of each player's game status 
(detailed in later sections) are made available at the 
termination at the end of a player's decision cycle. 

Neither summary nor forecast will be offered unless the 
umpire has indicated the presence of a compatible printer. 
Selection of the SILENTYPE option will assume that the 
printer is connected to the Apple printer port A. Selection 
of the RS232 option assumes the printer is properly config¬ 
ured to communicate with the Apple. 

Having indicated the printer status, the umpire is 
presented with the display depicted in Figure 3.5. This 
menu allows the umpire access to all weapon systems param¬ 
eters, budget forecasts, and a section designed to allow him 
to override TEMPOA's algorithmic expectation of war. In 

* Systems Review * 

1.. .Browse/Alter default weapon system budget 

parameters 

2.. .Add new systems 

3.. .Delete a system 

4.. .Browse/Alter annual budgets for ail game years 

5.. .Elect to control the annual probability of war 

6.. .0.tain printout of all game systems and parameters 

7.. .Quit umpire section and begin game play 

Figure 3.5 Umpire Menu 
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addition, the umpire may elect to have TEMPOA produce an 
initial systems printout, if a printer is attached. Such a 
printout, detailing each parameter setting of all game 
weapon systems, provides the umpire with complete reference 
information unavailable to the individual players. The 
players are only permitted to peruse those systems and R & D 
candidates which either are available in the current year, or 
were available to them in some previous year. Opportunity 
systems which are not yet available are masked from the 
players by TEMPOA. 

A final umpire option is to forgo any changes and quit 
the umpire game segment, beginning the play with default game 
parameters. The default settings are discussed individually 
in the following sections. 

Once the umpire quits the umpire game segment, all 
budget and weapon system parameters are fed identically to 
both players, so that both begin the play with equal 
opportunities. 

a. Weapon Systems 

The umpire may browse or alter the weapon system 
parameters through appropriate selections from the umpire's 
main menu (Figure 3.5). From the same menu he may opt to 
delete entire systems or create new systems. A total of thir¬ 
teen totally new weapon systems may be manufactured by the 
umpire, and can augment the seventeen default systems resident 
in TEMPOA. Since any or all of the parameters in the default 
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SYSTEM 2 


A N ame.0 A2 

B Type.Offensive System Weapon Type A 


C First year R&D can start:.1 

D Yrs R&D completed at game start:.0 

E First R&D year cost:.$400 

F Second R&D year cost:.$900 

G Third R&D year cost:.$700 

H Earliest year available (after R&D):.4 

I Units in inventory (at game start) ..0 

J Acquisition cost (per unit) ..$300 

K Operating cost (per unit):.$175 

L Value in utils (per unit) :.30 

M Maximum annual purchase rate:. 15 


Enter one of the FOLLOWING options: 

A. ..Delete displayed system and advance page 

B. ..Advance page without deleting displayed 

system 

C. ..Quit deleting 


Figure 3.6 Umpire Systems Browse 


systems may be accessed and altered by the umpire, the total 
number of configurable weapon systems for game play is thirty. 

Figure 3.6 shows the display that the umpire is 
presented with when the Browse/Alter option is used. An 
explanation of each system parameter follows. 

'System Name' is any alphanumeric string of char¬ 
acters. The seventeen default systems are loaded initially 
with generic names, such as OA1, DB2, etc., but may be umpire 
altered to read HARPOON, MXl, etc. to enhance the flavor of 
the game. 

'System Type' refers to which of the four cate¬ 
gories the displayed weapon system belongs. 
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The next five program lines deal with research 


and development. Normally, all systems which are not in 
inventory must be acquired through an R & D process. How¬ 
ever, the umpire has the option of making available systems 
not requiring R & D. This option is exercised by making the 
appropriate entries in Figure 3.6. (If the umpire elects to 
use the default systems,only four will appear in inventory 
at game start.) 

'First Year R & D Can Start' refers to the game 
year in which the opportunity for initiating the project is 
first available. 'Yrs R & D Completed at Game Start' allows 
the umpire to begin the game with R & D partially completed 
on selected systems. The next three lines indicate the 
annual expenses of conducting R & D on a system. An R & D 
project may last from one to three years. To account for 
inflation and possible cost overruns, a uniformly distributed 
random variable is drawn from the discrete set (0, 50, 100, 

150, 200}. The 'actual' annual expense of R & D is the sum 
of this variable and the umpire's elected R & D expense figure. 
This result will be made known to the players as the game 
progresses. 

The "Earliest Year Available (After R & D)' 
refers to the first year in which the player may add the 
system to his inventory. Adding the number of required years 
of R & D to the first year R & D can start should result in 
the first year the system becomes available. TEMPOA conducts 
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this simple check on all systems created or altered, and 
will alert the umpire of the discrepancy when an attempt is 
made to either advance the page in the 1 Browse/Alter' option, 
or quit the umpire segment. 

'Units in Inventory' is applicable only to those 
systems in inventory at game start and not requiring R & D. 

'Acquisition Cost' is the purchase price per 
unit, and is assessed only once during the game play upon 
unit procurement. 

'Operating Cost' is the annual cost of maintaining 
and operating a unit in inventory. This is an annual assess¬ 
ment. Units which are in inventory are assumed to be operated, 
and are so assessed. 

'Value in Utils' is simply the unit util value, 
and when multiplied by the number of units in inventory, 
produces the gross util value of the weapon system. 

A ceiling exists for the number of units of a 
specific weapon system which may be procured during any given 
year. This is referred to as 'Purchase Rate' and is the 
final system parameter listed in Figure 3.6. 
b. Budget 

Each player begins his year with the same budget 
figure as his opponent. This amount is based on the budget 
figures elected by the umpire. Figure 3.7 depicts the page 
on which this election is made, and is accessed through the 
umpire's main menu. The values presented are the default 
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BUDGET INFORMATION 


YEAR 

AMOUNT ($) 

YEAR 

AMOUNT 

1 

9300 

11 

9300 

2 

9600 

12 

9600 

3 

9400 

13 

9400 

4 

9200 

14 

9200 

5 

9100 

15 

9100 

6 

9100 

16 

9100 

7 

9100 

17 

9100 

8 

9100 

18 

9100 

9 

9100 

19 

9100 

10 

9100 

20 

9100 


<Enter 'C' to make a change> 
<Enter 1 Q* to quit> 


Figure 3.7 Umpire Budget Review 


budget values, and the years shown span the maximum duration 
of the game, twenty years. (The umpire is queried annually 
whether or not to conclude the game.) 

TEMPOA deviates from the umpire elected budget 
figure in the following manner: In an attempt to simulate 
effects of inflation, budget cuts and budget increases, a 
uniformly distributed random variable is drawn annually from 
the interval [-1000, 500]. The actual budget figure 

presented to and utilized by the players is the umpire- 
elected value (Figure 3.7) summed with the random drawn 
variable. (Budget surpluses are not carried over into the 
following year.) This final figure, discounted by penalties 
accrued by the player, is displayed in several locations 
to each player during the year in which the figure is appli¬ 
cable. (Penalties are discussed later in the Penalties 


section.) In addition, the umpire's elected figure for the 
following year is displayed to the players in the annual 
Budgetary/Systems Purchase Status tableau, explained later. 

c. Probability of War 

At the end of each year, after both players have 
completed their decision cycles, TEMPOA computes the annual 
probability of war. First the program determines the player 
with the larger net utility capability (as described in the 
Objective section) and declares him game winner for the year. 
It then algorithmically computes the ratio of the smaller 
net utility figure over the larger, and subtracts the results 
from unity. The final figure is the TEMPOA annual probability 
of war. Note that the larger the disparity between player 
capability, the greater the resulting probability of war. 

PROBABILITY OF WAR COMPUTATION OPTION 

The annual possibility of a war is determined 
probabilistically by a random draw whose threshold 
value is based on the magnitude of disparity between 
players' total adjusted utility figures. 

The umpire may elect to override the above 
computation method and be queried annually as to 
whether the war event is to take place. 

OVERRIDE (Y or N) 

Figure 3.8 Umpire's Probability of War Option 

The umpire may elect, through an option available 
in his main menu (and depicted in Figure 3.8), to let TEMPOA 
generate a uniformly distributed random variable (between 0 
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and 1) to determine whether the war event occurs. Or he 
may elect, through the same option, to have TEMPOA generate 
and display the computed probability of war, and query the 
umpire annually to determine whether the event should take 
place. This override capability defaults to 'off', and 
TEMPOA will, unless otherwise directed, generate the war 
event independently by the algorithm detailed above. 

Once the war event occurs, the player with the larger net 
utility figure is declared the winner. 

C. ANNUAL PLANNING 

The following sections treat what has been termed the 
player 'decision cycle', which begins with the player code¬ 
word entry. The decision cycle concludes when a player 
elects the 'Quit' option from his main menu (Figure 3.9). 

1. Annual Forecast 

Following the entry of a player's codeword, he is 
provided the opportunity of obtaining a printout (if the 
umpire has previously indicated a printer is attached) 
detailing the imminent year's weapon systems and budget 
status. Such a printout would be useful if the player were 
acting as terminal operator for a team of game participants. 

The forecast has eight segments. The contents of 
each segment are only briefly described below. A more 
detailed discussion is provided later in this section. 

The first segment is a list of all weapon systems 
currently in inventory. The second is a similar listing of 
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all systems available for purchase but currently not in 
inventory. Cumulative utility figures for each of the four 
main systems types are contained in segment three. New R & D 
opportunities, continuing R & D opportunities, and shelved 
R & D opportunities make up the next three segments. Segment 
seven displays the information gathered as a result of the 
previous year's intelligence expenditures. The final segment 
provides the working budget for the current year. 

2. Main Menu 

All expenditures made by a player are made through 
the main menu. This menu supplies a common return point 
following any procurement or investment decision, and offers 
the sole cycle escape avenue through its 'quit' option. 


MAIN MENU 

1.. .5TATUS OF FORCES CURRENTLY IN INVENTORY 

2.. .5TATUS OF FORCES AVAILABLE BUT NOT IN INVENTORY 

3.. .CURRENT RESEARCH AND DEVELOPMENT CANDIDATES 

4.. .1NTELLIGENCE/COUNTERINTELLIGENCE INFORMATION 

5.. .CURRENT 3UDGETARY/SYSTEMS PURCHASE STATUS 

6.. .QUIT (MAKE NO FURTHER BUDGET DECISIONS THIS YEAR) 

Enter the desired option number: 

Figure 3.9 Players Main Game Menu 

The first four options listed channel the player to 
those areas where decisions are made affecting his current 
budget. The firth option allows the player to view a summary 
of his budget status, reflecting the immediate impact of all 
procurement and expenditure decisions. The final option listed 
signals the completion of the decision cycle. 
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3. Forces Currently in Inventory 


Figure 3.10 depicts the display when the first option 
in the main menu is selected. Those systems with positive 
inventories are listed. Additionally, the following parameters 
are displayed; system name, system type, inventory quantity, 
unit acquisition and operating costs, utils per unit, annual 
purchase limit, and the total system utility value and oper¬ 
ating costs. 


PCRCES CURRENTLY IN INVENTORY 
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YOU CURRENTLY HAVE S1900 LEFT TO $PE NO F'~R THE PISCAl YEAR. 
<FRESS P TO PURCHASE, 5 TO SCRAP UNITS OR RETURN TO E'<IT> 


Figure 3.10 Systems Currently in Inventory Tableau 

The player is given three options (from Figure 3.10): 
purchase new units; scrap existing units; or quit and return 
to the main menu. If the player elects to either purchase or 
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scrap units, he is requested to specify which of the systems 
from the displayed listing he wishes to expand upon (or trim). 
Once the player has responded, the listing is replaced by a 
System Information tableau depicted by the upper portion of 
Figure 3.11. Following TEMPOA's prompting, the player enters 
the number of units he wishes to buy or scrap. The display 
of Figure 3.11 is now completed, and an Updated System Infor¬ 
mation tableau augments the previous System Information 
tableau. All acquisition and operating costs, as well as 
annual budget data, are immediately updated to reflect the 
player's procurement decision. In order to understand the 


SYSTEM INFORMATION: 

SY STEM(TYPE) INVENTORY 

AQ 
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OP 
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UPDATED SYSTEM INFORMATION 

SYSTEM(TYPE) INVENTORY 

AQ 
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OP 
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PURCH 

LIMIT 

TQ 
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UTILS 
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25 
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00 YGU WANT tq v^kS ANOTHER CHANGE? 
<c.*JTER Y OR N> 


Figure 3.11 Systems Purchase and Update Tableau 
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updating impact of a decision to purchase or scrap, it is 
necessary to take a closer look at how TEMPOA performs the 
arithmetic. 

Associated with each system are two special variables, 
one called the system inventory and the other called the 
'threshold' number. The system inventory always reflects the 
number of units of that weapon system in inventory at any 
given moment. The threshold number is simply the number of 
units in inventory with which the player began the year. 

The second variable represents those units for which an 
acquisition expense has already been incurred. While the 
inventory figure may fluctuate throughout the decision 
cycle, the threshold value will remain fixed, and will pro¬ 
vide TEMPOA the necessary flexibility to allow the player 
to reverse his decision with impunity throughout the cycle. 

When a player makes a purchase, his inventory is 
immediately increased, and his system operating cost is 
simply the product of the inventory and the unit operating 
cost value. When a player scraps units of a system, his 
inventory and system operating costs are immediately decre¬ 
mented. During a purchase, however, he is assessed an acqui¬ 
sition cost for only those units which are in excess of his 
threshold figure. And during scrapping, he is 'rebated' an 
amount equivalent to the acquisition costs only for those 
scrapped systems which are in excess of the threshold figure. 
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As an example of the numerical role played by the 
threshold figure, consider the following. A player's 
threshold is thirty units and his inventory is forty units 
(a point in the cycle when the player has already purchased 
ten units since the cycle began). He decides now to scrap 
fifteen units. His updated inventory will be twenty-five 
units. His threshold is still thirty units. His updated 
operating costs reflect his current inventory of twenty-five 
units. His budget funds remaining has increased by an 
amount equal to the acquisition price of ten units (not 
fifteen). 

TEMPOA will provide the alert depicted in Figure 
3.12 if the player attempts to spend more than he has avail¬ 
able. The alert acts merely as a warning, and will not 
prevent the determined player from overspending his budget. 
If the player continues, and amasses a deficit, an amount 
equal to twice the deficit figure is automatically deducted 
at the end of the decision cycle from the subsequent year's 
budget. 

During any portion of the decision cycle, an attempt 
to procure more units than the purchase rate allows will 
orompt an additional warning. TEMPOA then provides the 
player with the maximum number available for purchase, and 
will query the player as to his intentions. 
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WARNING 


You have not enough funds remaining in the year to 
make the desired acquisition 

Budget.$9400 

Amount spent previously for acquisitions.$0 

Amount spent for intelligence.$100 

Amount spent for R and D.$400 

Amount to operate all current inventories.$7200 

Amount remaining.$1700 

Acquisition and operating costs 

of system quantity selected.$1860 


Deficit 


$160 


If you continue with this purchase and do not scrap 
any other systems (to lower your operating costs) 
you will have an annual deficit. Twice this amount 
will then be deducted from next year's budget. 

Do you wish to continue with this acquisition? 

<Y or N> 


Figure 3.12 Budget Overrun Warning Message 

4. Forces Available But Not in Inventory 

All display formats and purchase procedures in this 
section are identical with the previous section. Systems 
itemized in the manner depicted by Figure 3.10 are those 
whose inventories are zero. Increasing the inventory of any 
system will immediately cause the system to be transferred 
from the 'Not in Inventory' category to the 'Forces Currently 
in Inventory' category. Subsequent perusal of this system 
requires a return to the main menu, and selection of the 
'Forces Currently in Inventory' option. 

In the event the forces listing is greater than four 
systems in length, TEMPOA provides for a series of pages to 
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be created, each of which expresses system information in 
the standard format. The paging option is implemented 
automatically when the need arises, and each page provides 
the player with the purchase option, and the advance page 
and quit options. This paging procedure is also implemented 
in the 'Forces Currently in Inventory' segment. 

5. Research and Development Candidates 

RESEARCH AND DEVELOPMENT PROJECT STATUS 

A. ..NEW OPPORTUNITIES 

B. ..CONTINUING OPPORTUNITIES 

C. ..SHELVED OPPORTUNITIES 

Q...QUIT 

Figure 3.13 Research and Development Menu 

All systems about which players make decisions can be 
categorized into three mutually exclusive classes; those 
systems in inventory, those systems available but not in 
inventory, and those systems in some stage of research and 
development. This latter class of systems may be browsed and 
manipulated through the R & D in the players' main menu. 

Once selected, an R & D menu, as depicted in Figure 3.13, 
appears on the monitor. 

There are three possible stages in the R & D process. 
First is the New Opportunity stage. All new R & D opportuni¬ 
ties make their initial appearance under this heading, and may 
be viewed by selecting the first of the options depicted in 
Figure 3.13. The selection causes the display to be replaced 
by the tableau depicted in Figure 3.14. 
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Figure 3.14 


New R&D Opportunities Tableau 


The information displayed in Figure 3.14 is similar 
to that displayed in the purchase tableaus with minor excep¬ 
tions. 'Yrs R & D Completed' is self-explanatory, and will 
have a value of zero for all new opportunities. 'Total Yrs 
Req'd' refers to the number of years of R & D required to make 
the system available for purchase. This figure, when compared 
to the 'Yrs Completed' value, gives a progress report on the 
system's R & D status. The maximum number of required R & D 
years for any T2MP0A weapon system is three. The next several 
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entries in the tableau reflect the expected cost of pursuing 
R & D on the described system. 

When the player elects to begin or continue R & D on 
a specific system (the option depicted at the bottom of 
Figure 3.14), the incurred expense' is equal to the figure 
indicated under the appropriate year column. This cost is 
immediately deducted from the annual budget. The remaining 
year cost columns in the R & D menu are forecasts only, and 
the figures under those headings may vary as a result of an 
inflation simulation. At the end of each year, a uniformly 
distributed random variable is drawn from the discrete set 
{0, 50, 100, 150, 200}, and is added to the subsequent year's 
expected R & D costs. As a result, the expense of contin¬ 
uing a system's development may become more expensive than 
anticipated, and players may decide to shelve the project 
temporarily. 

All new opportunity projects about which no player 
decisions are made will be put automatically into the shelved 
opportunity class by TEMPOA at the end of the decision cycle. 
TEMPOA makes no automatic budget assessments for either new 
or shelved R & D opportunities. 

The Continued Opportunity listing, also displayed 
through the R & D menu, itemizes all systems funded for R & D. 
The format is similar to that depicted in Figure 3.14. The 
'Yrs R&D Completed' value, however, will be non-zero in 
those instances where R & Q was previously funded. 
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The current budget figure always reflects the expense 
of pursuing those R & D projects itemized under 'Continuing 
Opportunities'. When a new opportunity is funded, the 
system's status changes, and the budget is immediately 
assessed the appropriate year's R & D cost. Similarly, when 
a previously shelved opportunity is continued, its status 
changes and the assessment is again performed (and a possible 
penalty, described later, is charged). 

From the Continuing Opportunities display, a player 
may elect to shelve one of the listed systems. Shelving a 
system will cause an immediate reinstatement of budget funds 
to occur, the amount equivalent to the cost of R & D pursuit 
for that system. At cycle end, all systems in the Continuing 
Opportunities status are assumed to remain in that status for 
the beginning of the subsequent year. 

PENALTY PRICES FOR RESUMING PREVIOUSLY SHELVED 

R&D PROJECTS 


System (Type) Penalty 

0A2 (OA) $300 

DB 3(DB) $250 

0B4(0B) $275 

OA3(OA) $300 


You have $1600 remaining in this year's budget. 

Enter the name of any system whose R&D you wish 

to re s ume: 

<Type 'quit' to Quit> 

Figure 3.15 R&D Penalty Tableau 
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Shelved Opportunities, the last stage to which an 
R St D project may belong, is the set of all systems whose 
project development is temporarily held in abeyance. The 
display format for these systems is similar to that of the 
other two stages. Once shelved, projects are indefinitely 
held in this status, carried over from one year to the 
next automatically by TEMPOA. If the player decides to 
resume development, he is assessed the appropriate year's 
R & D cost (previously explained), in addition to being 
assessed a resumption penalty cost. This cost reflects the 
expense of reactivating old facilities and the general 
regrouping of effort needed to pursue previously discon¬ 
tinued projects. Specifically, it is equal to $300, or the 
cost of the most recent year of R & D completed on the 
shelved project, whichever is less. A listing of penalties 
for all shelved systems, as depicted in Figure 3.15, is 
accessed through the third option in the R & D menu. 

A budget overrun warning, similar to the purchase 
overrun warning described earlier, is utilized in the R & D 
segment, and cautions the player when excessive R & D invest¬ 
ments are attempted. 

6. Intelligence/Counterintelligence Information 

Figure 3.16 displays the intelligence/counter¬ 
intelligence menu available to the player through his main 
game menu. The options available are three; receive previ¬ 
ously purchased information, fund the purchase of future 
information, and cancel the funding allotted earlier in the 
cycle. 
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SELECT INTELLIGENCE OPTION: 


A.... Receive Previously Purchased Intelligence 
Information 

3....Purchase Intelligence/Counterintelligence 
Information 

C....Cancel All Intelligence/Counterintelligence 
Requests for the Current Year 

Q....Quit 

Figure 3.16 Intelligence/Counterintelligence Menu 

Four distinct types of intelligence information may 
be procured. The first two concern enemy offensive and 
defensive force strengths, respectively. The latter two 
are information regarding enemy offensive and defensive R & D 
projects. 

3y selecting the first option in Figure 3.16, the 
player may review information procured by intelligence 
funding the previous year. In game year one, as in any year 
not preceded by an intelligence procurement, no intelligence 
information can be reported, and an appropriate comment to 
that effect will be indicated. Figure 3.17 depicts typical 
results of electing the first option from the Intelligence/ 
Counterintelligence menu (Figure 3.16). 

The first two TEMPOA responses in Figure 3.17 will be 
one of three possibilities:: If no money was previously 
expended for the intelligence category listed, the cue 'NO 
INFORMATION PROCURED' will be displayed. If the intelligence 
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CURRENT INTELLIGENCE REPORTS: 

ENEMY OFFENSIVE FORCES INFORMATION: 

NO INFORMATION PROCURED 

ENEMY DEFENSIVE FORCES INFORMATION: 

Total enemy defensive utils are estimated 
to be between 2736 and 3029 

ENEMY OFFENSIVE R&D INFORMATION: 

CIA unable to breach enemy counterintelligence 
barrier 

ENEMY DEFENSIVE R&D INFORMATION: 

Reports indicate enemy currently funding 3 
defensive R&D projects 

Figure 3.17 Intelligence Report 

category was funded, but the enemy provided for counter¬ 
intelligence funding, then TEMPOA will respond with 'CIA 
unable to breach enemy counterintelligence barrier'. If 
funding was provided and the enemy failed to provide for 
counterintelligence, then TEMPOA responds with upper and 
lower bounding estimates of the enemy's total utility for 
the appropriate system category. Each bound is arrived at 
separately through distinct uniform random variable draws 
from the interval [0, 200]. These two variables are then 
added and subtracted, respectively, from the actual total 
enemy utility figure to generate the displayed upper and 
lower bounds. 

The last two TEMPOA responses in Figure 3.17 will 
have the same first two possibilities as explained previ¬ 
ously. If funding was provided and the enemy has 
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established no counterintelligence, however, TEMPOA will 
respond with the number of currently funded enemy R & D 
projects of the appropriate system category. 


PURCHASE OPTIONS 

A. ..Current Force Strength of Enemy Offensive Forces 

B. ..Current Force Strength of Enemy Defensive Forces 

C. ..Current Offensive Enemy R&D Projects 

D. ..Current Defensive Enemy R&D Projects 

E. ..Supply Counterintelligence Regarding Own Offensive 

Forces 

F. ..Supply Counterintelligence Regarding Own Defensive 

Forces 

G. ..Supply Counterintelligence Regarding Own Offensive 

R&D 

H. ..Supply Counterintelligence Regarding Own Defensive 

R&D 

Q...Quit 

Intelligence Cost per Item (A thru D): $100 

Counterintelligence Cost per Item (E thru H): $200 

ENTER OPTION LETTER: 


Figure 3.18 Intelligence/Counterintelligence Purchase Menu 

Option two from the R&D menu (Figure 3.16) presents 
the display depicted in Figure 3.18, and allows the player 
to procure intelligence information or to provide for the 
supply of counterintelligence. The cost of intelligence pro¬ 
curement is $100. The cost of providing counterintelligence 
is $200. Counterintelligence is used to deny the enemy infor¬ 
mation whose acquisition he is funding. All procurements are 
immediately deducted from the annual budget figure. 

The final option allows the player to reverse previous 
intelligence/counterintelligence decisions, and cancel ail 
such funding for the cycle. 
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7. Budget/Systems Purchase Status 


BUDGET INFORMATION 

Year: 3 Total annual allowance: $9300 

Amount spent in acquisitions.$850 

Amount spent on intelligence.$600 

Amount spent on R&D.$2000 

Operating costs by system (those in inventory): 

System (Type) Quantity Total Operating Costs 


OAl(OA) 

40 

$1200 

DB1(DB) 

100 

$2000 

OB3(OB) 

100 

$1500 

Expected defense budget 

for next year: 

$8700 


Total monies remaining: $1150 

<Press RETURN to Return to Main Menu> 


Figure 3.19 Budget/Systems Information 

A current summary, depicted in Figure 3.19, is avail¬ 
able to the player at any time during his decision cycle 
through an option in his main menu. The summary provides a 
documentation of monies allotted during the current cycle for 
system acquisitions, intelligence and counterintelligence 
procurement, and R&D funding. Additionally, the summary 
breaks down all systems currently in inventory by name and 
system type, and provides individual operating costs. The 
summary concludes with the amount of budget funds remaining, 
and an estimate of the following year's budget allocation. 

D. ANNUAL OUTPUT 

Immediately following the conclusion of a player's decision 
cycle he is given the option (if the umpire has previously 
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indicated a printer has been attached) of obtaining an exhaus¬ 
tive printed summary detailing his budget decisions and weapon 
systems status for the year just completed. Once elected, 
the printing takes two to three minutes, and cannot be 
interrupted. 

The printout is divided into eight segments. The first 
segment itemizes all weapon systems currently in inventory, 
and provides a breakdown of each system into its component 
parameters. The second segment provides the same breakdown 
for all weapon systems available but not in inventory. Total 
cumulative utility figures for each of the four main system 
types are provided by segment three. The next segment item¬ 
izes all continuing R & D projects, providing the same param¬ 
eter details as contained in the first segment. Segment five 
treats all shelved R & D projects. As mentioned earlier, 
this category includes any unacted upon R & D opportunities 
which were introduced to the player as new during the previous 
cycle. The sixth segment deals with a budget summary and 
forecast for the upcoming year. The information provided is 
similar to that available to the player through his Budget/ 
System Status option in his main menu. The last two segments 
are forecasts of systems which will appear as opportunities 
at the start of the following decision year. Segment seven 
forecasts systems which the umpire has made available in 
inventory without requiring player R & D effort. Segment eight 
forecasts new R & D projects to be introduced to the game the 


following year. 
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E. WINNING 


AS A RESULT OF A TALLY OF 
OPERATIONAL FORCES UTILITY 
POINTS... 

Chris 

... IS DECLARED WINNER 
FOR GAME YEAR 5. 

Figure 3.20 Winner Declaration 

TEMPOA declares a win at the end of the year based on the 
player's net utility figures. The exact algorithm has been 
explained in the Objective section. Figure 3.20 characterizes 
the display presented by TEMPOA when a winner is declared. 

A tie is called in the event the players have identical net 
utility figures. 

F. SAVING THE GAME 

At the end of each player's turn, the umpire is presented 
with a menu selection which provides him the option of termi¬ 
nating the game. Specifically, he may decide to end the game 
and save the game data, or he may continue with the game. If 
the umpire elects to conclude the game and preserve the game 
data, then TEMPOA creates a data file on the external diskette 
and writes all systems and budget information for each player 
onto the file. When all disk drive activity has stopped, the 
play is concluded and the Apple may be turned off. When next 
the TEMPOA program is initialized, the umpire should indicate 
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that the game is a resumption (see Preliminaries section for 
appropriate cue information)- In the event the game is again 
shelved, the old data file on the external diskette is merely 
updated. The play, then, may be interrupted frequently without 
loss of data storage space due to a need to save the most 
current data base. In addition, several separate games may 
be played in the interval between the saving of a game and its 
resumption, as long as no attempt is made to save one of the 
intervening games. 

G. PENALTIES 

Three penalties may be assessed a player during the game. 
The cost of losing a war is $1000, and is immediately deducted 
from the following year's budget. A second penalty is the 
extra expense incurred by budget overruns. At the end of each 
year, twice the amount of any budget overrun is deducted from 
the guilty player's upcoming year's budget. Note that while 
a player is penalized for a budget overrun, he is not given 
credit for budget surpluses. As in many military procurement 
scenarios, what isn't used is lost. The final way a player 
may be penalized is by resuming a shelved R & D project. If 
the shelved system was actively pursued at some earlier time, 
then an added expense is incurred for project resumption. 

The cost is equal to $300, or the cost of the most recent year 
of R St D completed on the shelved project, whichever is less. 
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It bears mention that, in light of these penalties, a 
player's actual annual budget may differ drastically from 
the umpire's elected figure. A budget overrun of $500 coupled 
with the loss of a war will cut a player's expected figure 
by $2000. In addition, the random draw made to adjust the 
budget figure for inflation may slash the budget by another 
$1000. The resulting budget figure may surprise the unalerted 
player. 3oth players are strongly advised to heed TEMPOA- 
generated budget overrun alerts, and be wary of overextending 
operating commitments into subsequent years. 

H. STRATEGY 

The goal of the game is to gain the upper hand in terms 
of offensive utility points, while maintaining enough defen¬ 
sive utility points to offset the opponent's offensive capa¬ 
bility. Players wil] not achieve this end simply by funneling 
monies blindly into offensive capabilities. 

If the game duration is predetermined and announced by 
the umpire, it may be possible to successfully model TEMPOA 
as a complicated dynamic optimization problem. A variable, 
undetermined game duration, however, frustrates this approach, 
and the player is resigned to work out his 'best' strategy 
with a more primitive scheme. 

There are three areas in which a player might sink funds; 
intelligence, R & D, and system procurement. 

The gathering of intelligence information is important 
for providing guidance for which type of system to allot R & D 
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funding. And the cost of intelligence procurement is rela¬ 
tively inexpensive when compared to the pursuit of an R & D 
project or the augmentation of an existing weapon system. 
Intelligence is as much a priority to a player's enemy as 
it is to the player himself, hence the need to fund 
counterintelligence activities. A judicious use of counter¬ 
intelligence will effectively mask critical information 
concerning systems where a player is particularly weak, or 
where a player is expanding in preparation for the great 
'coup'• 

Most of the default R & D projects require three years 
of funding before they are available for purchase. A three 
year delay is a significant interval, and players should not 
delay in initiating R & D projects which will bear no fruit 
for several decision cycles. It is easy to become misled by 
visions of a late return for early efforts. To delay the 
start of an attractive R & D project in favor of a lesser 
capable but more immediate investment may be taking risks 
that the player can ill afford. Frivolous shelving is 
costly. The penalty price associated with resuming shelved 
R & D projects (in addition to the delay in getting them 'on 
the street') may exceed the expense of the budget overrun 
caused by continuing the project. The costs and penalties for 
shelving are not always transparent, and the decision to 
shelve warrants careful scrutiny. 
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Scrapping systems currently in inventory should be treated 
in the same way as shelving R & D projects. For each unit 
scrapped in haste, though the annual operating expense has 
been reduced, the equivalent acquisition cost has been wasted. 
Scrapping is an appropriate measure only when presented with 
an attractive, cost-effective weapon system whose operation 
under the budget constraint necessitates the replacement of 
less efficient systems. Systems of the same type may be 
compared in a cost-effectiveness mini-study, where expendi¬ 
tures are amortized over some predetermined interval. A 
similar approach has been successfully used to deal with R & D 
systems. 

The brunt of the emphasis in recent TEMPO versions has been 
on team interaction and the analysis accompanying the decision 
cycle. In the current version, the duration of the decision 
cycle is left to the umpire. However, the more time allowed 
the players during their cycles, the more complex and competi¬ 
tive their analysis is expected to be. 
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IV. CONSTRAINTS AND LATITUDES 


This chapter is divided into sections. The first section 
treats player constraints and variable limits, while the second 
deals with those areas of TEMPOA where random numbers are 
generated and used. 

A. CONSTRAINTS 

Game duration is limited to twenty years. This constraint, 
elected as a reasonable upper bound for the game duration, was 
embedded in TEMPOA to allow the umpire the flexibility to alter 
a set of default budget figures. If a duration greater than 
twenty years is desired, it is only necessary to alter the 
length and initialize the values of the integer-valued budget 
vectors REDBUDGET and BLUBUDGET, declared in the main program. 

The maximum number of game weapon systems is thirty. 
Seventeen are default systems, and may be altered beyond 
recognition by the umpire. Another thirteen systems may be 
created by the umpire to augment the default systems. Again, 
the bound at thirty was elected as a reasonable limit to the 
number of system alternatives a player would be able to deal 
with. An incremental increase in the number of systems avail¬ 
able increases the game complexity exponentially. 

All arithmetic operations performed by TEMPOA use 
integer-valued variables. And in the main, integer varibles 
have been used more frequently than long integers. The 
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probability of war computation, while appearing to use and 
display real-valued variables, actually uses long integers and 
an artificial decimal display. As a result of the prevalence 
of integer variables, the maximum value TEMPOA arithmetic can 
be expected to deal with is 32767. This is a constraint of 
the Apple itself. Since the greatest expenditures will not 
often exceed the annual budget, care need only be taken to 
ensure the umpire does not elect to use budget values in 
excess of 32767 (budget default values are approximately 9000) . 
This will artificially bound expenditures. And observing that 
unit utility values are roughly comparable to unit operating 
costs, bounding the annual budget figures effectively caps 
the total systems utility values as well. Annual expenditures 
and gross utility values are the largest variables dealt with 
in TEMPOA. Ensuring their bounds are within Apple integer 
constraints is sufficient to safeguard all other variables. 

Aside from the mentioned constraints and the limitations 
of the display presented on the monitor, TEMPOA has been 
constructed to be flexible and forgiving. Numerical entries 
not within the allowable range of the assignment will prompt 
a TEMPOA cue highlighting the error and cautioning the player. 

B. LATITUDES 

Random numbers are drawn and used in four instances during 
the game play. The Apple System Library unit Applestuff pro¬ 
vides the source of the random numbers. All begin uniformly 
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distributed over the interval [0,1]. A linear transformation 
is then performed on each draw to provide the appropriate 
variable range required. The Randomize procedure, also pro¬ 
vided by the Applestuff unit, is used to avoid the repetition 
of a draw sequence in subsequent games. 

Draws are made in the following circumstances; to provide 
upper and lower bounds to the enemy utility figure reported to 
the player as the result of an unblocked intelligence request; 
to determine the annual effect of inflation on the umpire- 
selected budget value; to determine the effect of inflation 
on the imminent year's R & D cost for any continuing R & D 
opportunity; to determine, if umpire-elected, whether a war 
event is to take place. A more precise description of the 
algorithms used in the above circumstances is available in the 
appropriate sections. 
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V. RECOMMENDATIONS 


TEMPOA is constructed to mime the realities of the defense 
procurement and development process. To the extent in which 
it falls short of this goal, room for program enhancement 
exists. 

A glaring artificiality is the encompassing in a single 
value, called 'util', the full capability and military signifi¬ 
cance of an entire weapon system. Certainly this streamlines 
TEMPOA. And it frees the player to concentrate his efforts 
on budget allocation rather than on pure systems analysis 
concerns. Nontheless, injecting a more realistic systems 
assessment would enhance TEMPOA and add a new level of sophis¬ 
tication to the play. 

An area not directly addressed in TEMPOA is the cumbersome 
artificiality of the decision cycle scheme. Forcing one player 
to 'wait his turn' while the other proceeds through the decision 
cycle is not merely unrealistic. Boredom is fostered in the 
nonparticipating player. A more desirable scheme would be a 
time-sharing arrangement, where both players occupy separate 
terminals, linked by modem, and conduct their decision cycles 
simultaneously. Such an arrangement, while posing no great 
technical difficulties, requires the availability of multiple 
compatible terminals. In addition, the need would arise for 
both players to complete their cycles at about the same time, 
to enable a timely transfer of player status information from 
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one terminal to the other (in order to provide TEMPOA the 
necessary data to decide and declare a winner). 

An alternate method for dealing with the player cycle is 
to have duplicate game diskettes given to the players. Each 
could play simultaneously on separate non-linked terminals. 
Following each turn, a data file summarizing a player's 
decisions would be created on each game diskette. The umpire 
would then halt the game and switch the players' diskettes. 

Each player could then retrieve the opponent's data file and 
determine a score. Diskettes would then be returned to the 
respective players to begin another game cycle. 

While this second method allows for simultaneous game 
play, it requires the additional manipulation of game diskettes. 
Also, the umpire would be required to monitor the cycle dura¬ 
tion and ensure the simultaneous termination of each player's 
game year. 

All of which, highlights the desirability of an internal 
clock in the Apple III. In the current TEMPOA simulation, an 
umpire takes the place of a clock, and may establish duration 
limits for player decision cycles. A clock would relieve the 
responsibility from the umpire, and would also provide a ready 
solution to the problem posed by the need for simultaneous 
cycle completion when using two linked terminals. 

The above summarizes the more glaring shortcomings of 
TEMPOA. Other such areas exist, and will become apparent 
whenever the player finds himself muttering in a frustrated 
tone of the artificiality of a TEMPOA-generated situation. 
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VI . 


MECHANICS 


This chapter discusses the required hardware upon which 
to play the TEMPOA program. In addition, the section on soft¬ 
ware dwells on the program makeup, TEMPOA file construction, 
and procedure segmentation. 

A. HARDWARE 

The program TEMPOA requires the use of one Apple III 128K 
microcomputer, a 120V/60HZ power source, and one external disk 
drive. While TEMPOA consists of three separate 5 1/4" floppy 
diskettes, the code required for running the program is 
contained only on the first two. 

The use of a printer is optional. However, in order to 
obtain an umpire's complete systems summary, an annual player's 
decision summary, or an annual status forecast, a properly 
configured printer is essential. When attached, a compatible 
printer is linked through the Apple RS232 port. If an Apple 
Silentype printer is used, it must be attached to Printer 
port A. 

3. SOFTWARE 

TEMPOA, as mentioned above, is contained on three diskettes. 
TEMPOA DISK 1 and TEMPOA DISK 2 contain the program code files 
and are used to run the game. TEMPOA DISK 3 contains all pro¬ 
gram text files, and is available to provide the user with the 
option of reconfiguring or editing the game. 
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Specifically, TEMPOA DISK 1, which is inserted in the 
internal disk drive prior to turning the power on, contains 
the Apple system software necessary to boot the TEMPOA pro¬ 
gram. Additionally, it contains a data file in which player 
names and codewords will reside. Using the Apple System 
Library unit Chainstuff, the booted code file on TEMPOA DISK 
1 is linked to the main program on TEMPOA DISK 2, which 
should be inserted into the external disk drive. Other than 
the initial diskette insertions, no further file or diskette 
manipulations are required of the player during the remainder 
of the program. 

An understanding of the rationale behind the TEMPOA file 
configuration is necessary if the user anticipates altering 
or enhancing the program text. 

File arrangement was dictated by several Apple constaints. 
First, individual procedure size limits caused simple but 
lengthy texts to proliferate into multiple smaller units. 

Hence the final program contains an inordinate number of 
nested procedures. A second consideration in program design 
was text file size. In order to amass the quantity of text 
embodied by TEMPOA, the program was divided into seven text 
file 'batches'/ plus the main driver text file. All files 
are then compiled sequentially using the Apple III Pascal 
compiler 'include' option. 

A constraint affecting program execution was the limita¬ 
tion on the quantity of code that could be loaded at one time 
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into the main memory. In order to provide adequate space for 
pertinent sections of the program, large blocks of text were 
defined as 'segmented' procedures. These procedures, compiled 
before non-segmented procedures, are not automatically loaded 
into the main memory, and now remain resident in the code 
files until called by TEMPOA. 

Sheer size of the TEMPOA code file (160 diskette blocks), 
suggested the use of a third disk drive in program construction 
and compilation. The requirement that certain system software 
files be resident in certain drives made TEMPOA file manip¬ 
ulation during construction cumbersome. While users are 
invited to modify and enhance the current version of TEMPOA, 
the use of a third drive is heartily recommended for the tasks 
of editing and compilation. 
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COMPUTER PROGRAM 


unit MVSTUFF; 

INTRINSIC CODE 17; 

INTERFACE 

USES wPRLESTUFF; 

(The following three procedures <»»erp created and installed as -an intrinsic 
unit into the system library. Each is called frequently by the driver 
program and by its satellite subroutines.} 

PROCEDURE PUTIT < x#y : mteeer; phrase : strine); 

PROCEDURE CLEFRSCREEN; 

PROCEDURE HELP; 

TMW.EH6NTQTI0N 

PROCEDURE PUTIT; 

•CPlaces a eiuen strine at a piuen «c^en location.} 
bee in 

UOTOXV(v,y>; 
i»triteln< phrase > 

end; vPutit} 


PROCEDURE CLEfiRSCREEN; 

•CErases entire screen.} 
uar 

control : mteeer; 
bee in 

control :» 23; 
unitwntev1 j controli2i*12 >; 
end; {clearscreen} 

PROCEDURE HELP; 

<Sounds audio tone and displays cue to operator.} 
uar 

d : char; 
beein 

clearscreen; 
sounds S5>3 jiS3 ); 

mr i tel n ;wr i tel n; n*r i te In; wr \ te 1 n; 
eotoxyi. 15*10); 

writelm * Vou must choose Worn amons» the available options. y >; 
put i t< 23# 13 * ' Press RETURN to return t.o mpnu 
read* d > 

end; Chel*} 

era. Cmystuff} 
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PROGRAM STftftTUP: 

USES SPPLESTUFF. CHflINST).IFF, MVSTU^F; 

•C Boots program# provides basic user handshake ^nd introduction. 
Obtains placer names* tickler to ensure disk *Z is in drive. 
Chains to main TEMPO program.> 


•ar 


1 : mteeer; component: arrav Ct..*] of strings datafile: file of strine# 


PROCEDURE ORfiWl; 

i Drawl and 0raw2 provide program loeo> 
beam 

writeir* ' 
it*In; 

writein< y 

) i 

writelrK y 


writeln< y 
0 '•>; 

writelrK y 
ij ) i 

mritelm' ' 

0 ' 

writelrK y 

y >; 

writeln< y 
' >; 

writeln< '* 
end; 

PROCEDURE 0RRW2; 
var 

d : char; 
beam 

writeln< y 

; 

writein< ■' 
i 

writelnc y 
e .*; 

writein< y 

; 

write1nt' 
i 

mriteln< ' 

i 

••ritein*, y 
•••ritplm ' 


WELCOME T0 y >;writeln;writeln;wr 


T7TTTTTTTT 

EFEEFEE 

M 

M 

PPPPPP 

000000 

TTTT T TTT T T 

EE 

MM 

MM 

PP 

pp 

00 

00 

TT 

EE 

MMM 

MMMM 

PP 

PP 

00 

0 

TT 

EEEEFEE 

MMMMMMMMM 

PPPPPP 

00 

0 

T7 

EF 

MM 

M MM 

PP 


00 

0 

TT 

cp 

HM 

MM 

PP 


00 

GO 

TT 

EFEEEEE 

MM 

MM 

PP 


000000 


\ dram l > 


y ) 
y ) 

Th* in*erprtu*e ?ame of international warsame finane 


RETURN to continue 


neseK d j 
end# 


' dna«»»2 > 


PROCEDURE GETNPMES; 

LObtain names> 

beam 

ciearscreen; 
aotoxyv L 0 #13 ); 

*"rite r > ' Enter th® name of °laver Mnmror l •. Then wss RETURNS: 
reading comeonentC 1 ] ;•; 
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?OtOxy< 10,11 

writer ' Enter a codeword for D !s.v^ 1 < Then press RETURN): 
re ad 1 nv c opponent C 31 >; 

?o toxy< 80 # 11 >• wr i te< ' / *■; 

sotoxyv id#13); 

•nr i te< 'Enter the name of Planer Number 2 (Then press RETURN): '>; 
read 1 n< c omponent C 2 ] > # 

?otoxy< 10*14); 

write<'Enter a codeword for °la^er 2 •'Then pro«s RETURN): '); 
readln< comPonentC4] >; 
aotoxyv 80 # 14 >*urn i te< y ^ 

end; Csetnames) 

PROCEDURE 0ISK2; 

•Click ler to ensure disk *2 is in Drive *?’> 
var 

f : char; 
beam 

eutit<18,13#'ENSURE TFMPO QISK *2 IS LOPDED INTO 0RI»»E *20; 
putit( 27*20#''Press RETURN to Continue)*' 
re acft f > 

end-; <dm^2T 


PROCEDURE SCRIBBLE; 
<Introduction) 
var 

d : char; 

Deem 

clear^creen; 


putiv 13#5#' The follow*n* interact!’-*- simulation was written '>; 

PutiV13*8#'by Christopher 0. Owens* LT* USN# for the Ppele III ')# 

putitc13#?#'microcomputer in partial fulfillment of requirements ' )# 

putit<13*8*'for the decrees of Master of Science in Operations ' ># 

putiv13#3#'Research and Master of Scienr® m Pprlied Mathematics, '); 
put l v 13 # 10 *' ') # 

putiv13#11#' Complete program documentation and user instructions '); 
putiv13*12#'are contained in the ♦hesie document, itself* suomxtted )# 

putit<13#13#'m Seetemoer 1932 at the Naval Postgraduate School in ')# 
putit<13#14#'Monterey# California. The document and accompanying 
putit<13#15#'diskettes are held by Plum P. wnarus# Department of ' ); 

putit<13#16#'Operations Research# at the Naval Postgraduate School. ' ); 

put i t< 13 # 17 #' ' >; 

put iv. 13# 13#*' ) * 

putiv 13# 13#' ( Press RETURN to acc*ss the UMPIRE section I ')# 

putIV 13#20#' 1 and to OP<*m »lay 1 ' >* 

rpac< d) 


end# ■CsrriDDle) 


PROCEDURE CHECK IT; 

tChecks ’’•o r.ee whether same is a resumption of a previous same. If so# 
then boot eroeram is terminated and an indicator is passed to the mam 
program via 3 chain '-ariadle.) 
uar 

d : strine; dd : char* 
bee in 

ciearscreen# 
sotoxyC25 #10 ); 

writein* 'Is the same to be a resumption*’ 
sotoxy<25#11>; 

writer'of a previous Play { ' J or N )• ' 
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reacKdd); 

if <dd='V' > or then 

besm 

SETCWU'RES''; 

disk2; 

exit< STARTUP > 
end 

else 3£TCUPL< ' NRES' ’> 
end; Ccheckit} 


oeem 

c 1 earsc r eert; draw 1 ; dr aw2 ; 

setcham<'VTEHRiVtetteo' 

cneckit* 

scribble# 

setnaroesi 

disk2; 

rewrite (datafile#'TURNKEY!mane, data'>; 
for i 1 to ^ do 
bee in 

datafile-* : * comronentCil; 
put (aatafile> 


end# 

close (dataf i le#lock> 
end. 


i startup> 
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•' rvijpD> 

PPOGROM TEMPO; 

USES £PPLESTUFF* CHBINSTUFF, HVSTUFF; 

•Chain drxuer. > 

Type 

forecast. = packed record 

name : string; 
yr ava i i : i ; 

yrftaQstarts : integer; 
yrofRaO : integer ; 
yrlRaOcost : integer; 
yr2Ra0c ost. : : nteger; 
yroRaOcost : integer; 
inventory : intwor; 
tval : integer; 
wQcost : integer? 
OPcost : integer; 
utils : integer? 
purlimit : integer; 
OPcostTTL : integer; 
utilsTTL : integer; 
delete : integer; 
penalty : integer; 
umtbuy : integer; 
status : integer; 
sort : string 
end; 


systems - packed array Cl..301 of forecast; 
temp = packed record 

tyear * tred1eft * rbl u ief ' f •*r a«gpent* * baespent* tri« pent * tbispent * 
trrdspent * tbrdspent , tnumofs ygterns * t roa * trob * trda * trdb * tooa * tbod * 
tbda * tbdb* tro * trd * trrno , f rrdd> t fro * t f rd. tfrrdo # t f rrdd * 
tbo * tbd * tbrdo*rbrdd * tfbo * tfbd* tf brdo * tfbrdd : integer; 
t.prtr*ttnar-cont : char; 

treobudget*tbiubudget : arrayC1..2*1 of integer; 
tPlayers : arrayf1.. 4 ] of = trin<* 
end; 

oar 

deo : string; 
rs : systems; 
ds : systems; 
sys : systems; 
year : integer; 

r~edbudset* bluoudget : =>r**oy Cl..2^1 of :nte«r; 

players : array Cl.. 4] of string; 

mainflas : boolean; 

redleft* oluleft : integer; 

raespent* baespent : integer; 

rispent* Diseent : integer; 

rrdspent* brdsp^nt : integer; 

numofsystems : integer; 

prtr : char; 

z ; text; 

roa*rob*rda*rdb*boa*boo*oda*brfb : integer; 
ro*rd*rrdo*rrdd*fro*frd*frrdo*frrdd : integer; 
do* oa*brdo*brdd*fbo*fbd*fbrdo.fbrdd : m^p^er; 
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warcont 


char i 


•C5INCLUDE NP2:BATCH 1. text> 
CONCLUDE THESI32:6PTCH1P. text} 
■C S INCLUOE THES132:BPTCHIB.text > 
f£1NCLUOE NP2:BPTCH2. text} 

<siNCLUOE TH€SIS2:BPTCH2P.text} 
{S INCLUOE THESI32:BPTCH2B.text> 
INCLUDE THES IS2: BPTCH3 . text. > 


PROCEDURE MPINMENU <person : strine >; 

iThe inain w?nu. Provides a central calling point from which all 
expenditure decisions originate, and from which all Pertinent 
l reformat, l on ohta l ned. > 
war 

selection : char; euitflae ; boolean; 
beam 

3 uitflae := false; 
repeat 

clearscreen; 

PUtit<33,W"MGIN MENU"); 

putit<10,8,"1...STATUS OF FORCES CURRENTLY IN INUENTGRY'>; 

putit<10,3,"2...STATUS OF FORCES AUAILABLE eUT NOT IN INVENTORY'>* 

PutiU 10,10,"3...CURRENT RESEPRCH PND DEVELOPMENT CANDIDATES"); 

eutitC10,12,"4...INTELLIGENCE/COUNTERINTELLIGENCE INFORMATION' ); 

putm 10,14,'5...CURRENT 9UDGE T QRY/SYSTEMS PURCHASE STATUS"); 

putit< 10,16,"8. ..QUIT <HAKE NO FURTHER BUDGET DECISIONS THIS VEPRV ) 

writeln;writeln;uir:teln; 

wr i te< " Ent er the desired retion numoer: " >; 

read<selection); 
case selection of 

"1 x : GPStatusC person ); 

"2" : austatu*<person); 

'3" : rdstatus<person ;; 

"4" ; intelstatus<person 
"5" : currentstatus< person); 
y 3" : euit.fla* := 'rue; 
otherwise help 
end; 

until ^uitflae 

end; "mainroenu> 

PROCEDURE STARTUP C person : strms >; 

iInitial ires the seneric record «.m« -^ r -iiooal use by players.> 
beam 

if person = p1 averse1] 
then sys := rs 
else sys := bs; 

end; <1 startup > 

PROCEDURE PLPVEPONE; 

CPI lows annual dudeet. decisions for ^lay^n Updates all pertinent 
war iaoies for coweutat i on of w i nri^r =,nd usase in foilowins play. } 
deem 

startup <p1 avers Cl]); 
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update <p 1ayersC13 #redoud^et[year3); 
ma i nmenu < p 1 avers C 1 3 >; 
print <eiayersC13 ) 
end; CpI averone} 


PROCEDURE PLPVERTWO; 

CSee Plaverl routine.} 
oesm 

startup CplaversC23>; 
update <playersC23#bluoudsetCyear3 >; 
mainmenu (PlaversC23); 
print <playersC23> 
end i <\ p 1 avert uro } 

PROCEDURE OPHEENO; 
i C1oses printers.} 
besin 

clearscreen; 

if NOT <prtr - '3' > then c1osp< r*lock * 
end; <sameend} 


oesm 

randomize; 

GSTCUOUded); 
lf ded® y RES y then setall 
else 
deem 

initial ire; 
whorlays; 
umpire 
end# 

mamflas false; 
repeat 

year := year + t; 
initvr; 
plaverone; 
p 1 averts; 
yearend 

unt 1 1 nia i nf l as; 
sameend 

end. \ tempo} 
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THE FOLLOWING 5FGMENT5P POnrepupp jq mMOTi rn awn IN*FRTED IN THE MAIN 
PROGRAM MS BOTCH 1 USING THE COMPILER 'INCLUDE' OPTION, DUE TO FILE 
SIZE CONSTRAINTS.> 


SEGMENT PROCEDURE INITIALIZE; 

{Initialises 17 toe aeon systems »js ins default parameters; 
initializes budgets to default figures; initializes 
year, expenditure variables and number of systems> 

PROCEDURE INITOP; 
beein 

rsC13.name := 'QP1';rs£t].yravai1 :* 1;rsC13.status := 9; 
rsC13.yrftaQstarts := 9;rsC 1 l.yrot’RaO : = 9; 
rsCl3.yrlRa0cost := 0;rsC 13. , -»r2Ra0cost 9; 
rsC 13 .yrSRaOcost := 9;rsCi3.inventory := 4pj 
rsC 13.AQcost := 59;rsC 13.OPcost :=* 39; 
rsC13.utils :=» 20;rsC 13.purlimit : = 25; 
rsC13.unitbuy :“ 9;rs[13.sort :- x no / ; 
rsC!3.delete :* 9;rsC13.penalty :“ 0; 
rsC 1 3.0PcostTTL : = <rsi13.OPcost >HrsC13. inventory); 
rsC13.ut 1 1sTTL := < rsC13.ut11s H< rsC13•inventory >; 
rsC23.name := '0P2';rs» - 23. yrsuai 1 ^;rsC23.status 1; 

rsC23.yrRaGstarts := 1;rsC23.yrofPaG := 0; 
rsC23.yr 1 RaOcost := 4P0;rsC23.yr2°aOcost : * 909; 
rsC23.yr3Ra0cost := 790;rsC23.inventory :- 8; 
rsC23.AQcost := 399;rs£23.OProst ?“ 175: 
rsC23.utils :» 390;rsC23.Purlinrut : = 15; 
rsC23.unitbuy := 9;rsC23- sort 'OP'; 
rsC23.delete := 9;rsC23.penalty := 9; 
rsC23 .OPcostTTL :* < rsC23. OProst HK rsC23. inventory); 
rsC23.utilsTTL : = <rsC23.uti Is >*< rsC23. inventory ); 
rsC33.name := 'QP3';rsC33.yravai1 := S:rsC33.status := 1; 
rsC33.yrRaOstarts := 3;rsC33.yrofRaO :* 9; 
rsC33.yrlftaQcost :- $90;rgC33.yr2RaGcost 1999; 
rsC33.yroRaQcost :- 800;rsC33.inventors := 9; 
rsC33.PQcost := 209;rsC33.OPcost := 109; 
rsC33.utils := 250;rsC33.eurlimit := 15; 
rsC33.unitbuy 9;rsC33.sort '^Q'i 
rsC33.delete := 9;rsC33.penalty := 9; 
rs C 3 3.OPcostTTL := <rs C 3 3.OPcost rs C 3 3.inventcrv >; 

rsC33 .uti IsTTL : » < rsC33.uti Is)e< rsC33. inventory > 
end; <imtoa> 


PROCEDURE INITSETlCB; 
oesin 

rsC43.name := 'OBI' ;rsC43.yravai ] 1;rsC4].status := 9; 

rsC4].yrRa0starts : = 9;rsC4].yrofRaO 9; 

rsC4].yrlRa0cost := 9;rsC43.yr2Ra0oost :*=■ P; 

rs£43.yr3Ra0cost := 3;rsC4].inventory := 29; 

rsi4].AQcost 70;rs[4l.OPcost 150: 

rsC43.utils := 120;rsC43.purllmit 15; 

rs£4j.unitbuy := 0;r<C4].*nrt :- 'OB'; 

rsC43.delete 9;rsC43.penalty := 9; 

rsC4].0PcostTTL := < rsC43. OPcost rsC4]. inventory >; 

rsC4], uti IsTTL := < rsC4].uti Is )*< rsC43. inventory >; 

rsC53.name := '081 mod';rsC53.sravai1 := 3;rsC53.status := 1; 

rs[53.yrRaOstart<=. := 2;rsC53.yrofPaO := 9s 

rs£53.yrlRaOcost :* 1 99;rs.C53.yrERaDcost 9; 
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rsC53. yrERaQcost : = 0;rsC31. inventory := Os 
rsC51. wQcost :- 30;rsC51. OPcost : - t20; 
rs£51 , uti Is :* 14#;rsC51. purl imit : = 15; 
rsC51 .umtbuy : - 0;rsC51. sort := ' OB ' i 
rsC51.delete :» 0;rsC5].penalty := O; 
rsC 51.OPc ostTTL :* < rs C 51.OPr ost >*< rs i 51.t nuentory ) ; 
rsCSl.utilsTTL : 3 < rsC5].uti Is >*< rsC51. inventors* >; 
rsCSl.name := '082';rsCSl.yravai1 := 2;rsC81.status := 1; 
rs C 81. yrRaOstarts : = 1; rs C 6 ]. yro+'RaG i = 0; 
rsC8].yrlRa0cost := SO0;rst81.vr2RaDcost := 0; 
rsC61. yr3Ra0cost : = 0;rsCS]. inventory : = 0; 
rsC6]. wQcost := 75;rsC6]. OPcost : - 35; 
rsCSl.utils :» 40;rsCS3,Purlir<ut : =* 35; 
rsCSl.umtbuy 9;rsCS].scr? := 'OB'; 
rs-C6] .deist,* := 0;rsCSl. pwalty := O; 
rsC8] .OPcostTTL := <r^CSl. OPcost >*< rsCSl. lwentory ); 
rsCSl.utilsTTL := < rsCSl.mills>*<rsCSl.inventor*) 
end; <imt$ET!od> 


PROCEDURE INITSET208; 
oesan 

rsC71.naroe : = '083';rsC71.yrsuai1 : - 4; re C 71. status : = 1# 

rsC71.yrRaOstarts := 2;rsC71.yrofRaO := 0; 

rsC71.yrlftaGcost := 500;rsC71.yr2Ra0cost := 990; 

rsC71,yr3RaQcost 0;rsC71.inventory :» 9; 

rsC71-WQcost := 100;rsC71.OPcost • - 50; 

rsC71.utils := 125;rsC7].Purlit*it := 15; 

rsC7]. umtbuy := 0;reC71. sort : = '08'; 

rsC71.delete :» 8;rsC71.penalty := 9; 

►^sC 71. OPcostTTL := < rsC 71. QPcostW rsC 71. inventory ); 

rsC71.utiIsTTL : = < rsC71.uti Is >*<rsC71. inventory;; 

rsC3].na*oe 'QB3mod' ;rsC9].yravai 1 : * 3;reC3].status : = 

rsC8], yrRaOstarts 2;rsC8].yrofPaO := 0; 

reC3]. yrlRaQcost := 8O0;rsC31.yr2PaGcost :- 0; 

rsC81.yr3Ra0cost : = 0;rsC31.inuentorM : = 0; 

rslSl,WQcost 80;rsC91.OPcost 75 i 

reC81.utils :=a 200;rsCSl.purlunit 15; 

rs[81.unitbuy 0;rsC31.sort y 0B / : 

rsC81.delete := 0;rsC81.penalty := 0; 

rsC 31. OPcostTTL : = < rs C81. OPcost W reC 81. i nupnt^r*=» >; 

rsCSl.utiIsTTL <rsC81.utiIsH<rsC31.inventory>; 

rsC3].name := / 0B4 / ;reC?3.yrauail : = 5;r«C31.status 1; 

rs C 31. yrRaOstarts : - 3; re C 9 ]. yro+'RaO : s 0; 

reCSl.yrlRaDcost := 580;reC31.yr^RaOeoet := 800; 

rsC91.yr3Ra0cost :- 0;reC91.im^entory := 0; 

rsC3].P0cost 75;rsC31.OProst := 25? 

rsC3].utils := 75;rsC31 .Purllrnit := 30; 

rsC31.umtbuy : = 0;reC91. sor^. : = / 09 / ; 

rsi31.delete 0;rsC91.penalty := 8; 

rsC 91.OPc ostTTL :- < rs C 91.OPc os tre C 91•:nuentorv >; 

rsC-91 .uti lsT T L r ' rsC91. uti Is )•»< rsC91. muentory > 

<?nd; < imtSET2ob> 


PROCEDURE INITDw; 

PROCEDURE INITDfifiUX; 

Deem 

rsC101.name := y 0Pl y ;rsC101.yravai1 := 1;reC103.status 
rsC10].yrRaOstarts := 0 ?rsC101.yrofRaO := 9; 
rsC10].yriRaOcost := 0;reC10].yrSRaOcost := 0; 
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rsC 103.yr3RaCcost : = 8 ; re C18 3. inuentery ; = 20; 
rsC 103.PQcost := 180;r«C103.OPcost -= 60; 
rsC103.utils := 50;rsC103.Purlimit 25; 
rsC I83.umtbuy 9;rsC 191.sort. : = 'OP'; 
rsC 103,delete : = 0;rsC103.penalty 0; 
f"sC 193.0PcostTTL : 3 (rsCl03. OPcost >*< rsC 103. inventory >; 
rsC103.utilsTTL :» <rsC 103.utiIs)*<rsC103. inventor*); 
rsCtl3.name : 3 ' DPI mod' ;rs Cl 13. vrauai 1 : = 2;rsC 11 3. status s 
end; <initdaaux3 


Oesin 

lmtdaaux; 

rsC113.yrRa0starts := 1 ;r<C 113.yrofRaO : = 9; 
rsC!13.yrlRaCcost j 3 200;rsC113.yr2RsOcost : = O; 
rsCll3.yr3RaOcost : 3 8;rsC113.inventor* := 0; 
rsC 113.PQcost 50;rsC 113.OPcost : = 80; 

rsCll3.utils :=» 80;rsCl 13.Purl imit := 25; 
rsC113.unittouv : = 8;rsC 113, sort := 'DP'; 
rsCll3.delete := 0;rsCl13.penalty := 8; 
rsC 113.0PcostTTL :* (rsC 11 3.OPcost >«< rsCl 13. inventor*>; 
rsC113.utilsTTL <rsC113.utiIs >KrsC113.inventor* >; 
rsC123.name '0P2';rsC123.*rauai1 := 5;rsC123.status := 1; 
rsCl23.*rRaOstarts : a 2;rsCt23.*rofRaO ?* 0; 
rsC 123.yrlRaOcost : 3 300;rsC 123.'-»r2Ra0cost := 800; 
rsCl23.*r3RaOcost :* S80;rsCt23. inventor* : 3 0; 
rsC123.PQcost : = 50;rsC123.0Pcost : = 40; 
rsC123.utils 129;rsCt23.rvHimit :» 20; 
rsC123.unitbu* 8;rsC123.sort 'OP'; 
rsC123.delete :» 8?rsCl23.penalty :- 0; 
rsCl23.GPcostTTL < rsC 123. OPcost )*< rsC 123. inventory >; 
rsC123.utilsTTL : = (rsC 123. uti Is >*<rsCt 23, inventors); 
rsC133.name :* '0P3';rsC133.yrauai1 5 ;rsC 133. status := 1; 

rsC133.yrRaOstarts := 3;rsC133 .yro^RaP ' - 8; 
rsC133.*rlFaGcast; :* 1008;rsC 133.*r2Ra0cost := 1590; 
rs C13 3 ,*r3RaDcost : * 8;rs Cl 3 3. lnvent.cry s = 8; 
rsC 133.PQcost :- 60;rsC133. OPr-ost : = 28; 
rsCl33 .uti Is 99;rsC 133.eurl imit ;a 25; 
rsC 133.umtbu* := 8;rsC 133.sort : = 'OP'; 
rsC133.delete := 8;r<C133.penalty := 8; 
rsCl33.OPcostTTL := <rsC133.OPcost)*<rsC133.inventor*); 
rsC133.ut.ilsTTL : = < rsC 133. uti Is >H r«C133. inventor* ) 
end; initda / 


PROCEDURE INITD8; 

PROCEDURE INITOBPUX; 
beein 

rsC 14],name 'OBI';r<Ct4].yrav*i1 : = 1 ;rsC143.status : = 

rsC 14 3. yrRaOstarts := 8;rsCl4l. yrot' PaO : = 8; 
rsC143.^rlRaOcost :=*8:rsC143.vriP^Ocost := 8; 
rsC143.yr3Ra0cost := 9;rsC143.inventors := 188; 
rsCl*43.pQcost : = 40;rsC 14].OPcost := 29; 
rsC14].utils := 15;rsC143.purlimit 25; 
rsC 14], unitbus : a 8;rs-C 143. sort '08'; 
rsC143.delete := 8;rsC14].penalty := 8; 
rsC 14 3. OPcost TTL : - r > rsC 14]. OPcost , !>5fc <r<C143. inventory;; 
rsC 143. uti IsTTL := < rsC 14]. uti Is )*< rsC143. inventory > 
end; C ini tdba«.iy> 


besin 

lmtcoaux; 

rsC153.name := '082';rsC153.yrauai1 := 3;rcC153.status := 1; 
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rsC 151.yrRa0starts : = 1 ;rsC 151. *ro+RaG : = 9; 
rs£15].*rlRa0cost 400;r<C 151. ^r2RaOcost : = 400; 
rsC15].yr3RaQcost : - 9;rsC15].inventory : • h; 
rsC15].PQcost ;= 30;rsC151.OPcost : = 705 
rsCl51.utils := 100;rsC 15]. purllmt := 25; 
rsCI5].unitbuy := 9;rsC 151. sort 'OS'; 
rsCIS].delete 0;r-sCl51.penalty := hi 
rsCISl.OPcostTTL s- 'rsn5].GPcreOe<r^Ct5].inuenton=0; 
rsC15].utiIsTTL trsC 151.utiIs)*<rsC 151 • inventors); 
rsCIS].name : » / D83 / ;rsClSl.vrauai 1 :=» 3;rsC 161 .status :“ l; 
rsCISl.yrRaOstarts : = 2;rsC 16]. yrot'RaO : = hi 
rsC16].yrlRa0cost :* 1090;rsCtS].yrERaQcost 0; 
rsC18].yr3Ra0cost :=» 9;rsC 163. inventory : = hi 
rsCIS].AQcost := !00;rsClS].0P<-o*t := 50; 
rsCIS].utils : = 200;rsC 161 • purlimit :“ 25; 
rsC IS].unitbuy :« 0;rsCIS].sort •- 'OB'; 
rsCIS].delete :=» 0;rsC 18].penalty hi 

rsC1 SI.OPcostTTL :- (rsCl83,OPcost )♦< rsCIS]. i nuentors,); 
rsC 16].uti IsTTL := < rsC 161. uti Is >H rsC 18] . inventory ); 
rsCl7].name '0B4';rsC171.yravail 5;rsC17].status 1; 

rsC17].yrRaDstarts : * 3;rsC171.yrofRaG hi 
rsC17].yrlRaQcost : = 60P;rsCl7].yr2Ra0cost : = 600; 
rsC17].yr3Ra0cost :* 9;rsCl71.inventory := hi 
rsCl7].£Qcost :» 150:rsCl71. OPcost 225; 

rsC17].utils :=» 400;rsC 171 .eurlimit := 10; 
rsC17].unitbuy := 0;rsC17].scrt := 'OB'; 
rsCl71.delete :* 9;rsC171 -penalty := hi 
rsCl71.OPcostTTL := (rsCl71.OPcost >*<rsCl71. inventor^; 
rsC17].uti IsTTL := < rsC 171.uti Is>*< rsC 171 • inventory ); 
end; 7 inttab> 


PROCEDURE INI7GENRL0GTQ; 
besin 

bs := rs; 

recbucsetCl] : 3 3300;redbudsetC21 ?= 9R00;reobudsetC3] : 3 9400; 
redbudsetC4] : =* 9200;redbudeetC51 := 31 hh ;recbudeetCS1 := 9190; 
redbud*etC7] : » 9109;redbudsetC31 : = 9t00;redbud9etC3] : = *3100; 
redbudsetC10] := 9100; 

redbudsetC11] := 9300;redbudsetC! 21 :* Q S09;redbudset C 13] := 9400; 
redbudsetC14] := 9289;redfcud<=>etC 151 : - 3100;redbudeetCIS] := 3109; 
redbudsetC17] 9i00;redbudeetC131 3100;reab»JdsetC 19] := 9100; 
redbudsetC20] := 9190; 
bluoudset redbuaset; 
ra<»spent : - hi 

oapseent := 0;nsp«»nt ;= 0;oispent 0;rrrtspent 0;ordspent := hi 
numofsystems := 17; 

^ear : = 0;juarcor»t : = / N / 
end; <initsenrldata> 


Desin 

i nitoa;initset1ob;in 1 1set2ob;in i tda >initdb;in 1 1senr1data 
end; 0 initialize} 
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■:Th€ FOLLOWING SEGMENTED PROCEDURES r -»PE COMPILED uwo inserted in the mpin 
PRCGRPM ftS BftTCH lft USING THE COMPILER 'INCLUQE' OPTION, DUE TO FILE 
SIZE CONSTRftINTS.> 


SEGMENT PROCEDURE INTELSTQTUSC person : strme); 

Cflccessed from mam menu- Provider status of current intel 1 xeence. 
ftllows the procurement of future intelligence# the display of 
acquired intelligence* and the scrapeme of all requests budgeted 
for the current year-> 
uar 

if las : boolean; d : char; 

PROCEDURE RIDINFO* 
var 

e : char; 


PROCEDURE &LUERID; 
beein 

if (fbo * 109) or 
beein 

f bo: =f bo-199; 
end; 

if (fbd 109) or 
beein 

fbd:*fbd-199; 


(fbo = -10ft> then 
biseent:=bispent-109; 
<fbd = -109) then 
bispent:=bise^nt-189; 


blu1 eft:=blu1eft+109 


blulefts=bluleft+109 


end; 

if < fbrdo - 109) or < fbrdo = -100) then 
beein 

fbrdo:-fbrdo—109; bispent:=oi«pent-l09; bluleft: =Olulef t+100 


end; 

if (fbrdd = 190^ or < f brdd = -t99> then 
beein 

fbrad:*fbrdd-109; bis pent:=blspent-199; b1u1eft:=b1ulef t+109 
end; 

if (fro = -209) or < fro = -109^ then 
beein 

fro:=*fra+290; btep«nt:-hicp*nt.- o 90; bluleft:-bluleft+209 


end; 

if < f rd = -290 or ( f rd - -100) then 
beein 

frd:=frd+209; olspent?=btspent-299; bluleft:=oluleft+200 


ena; 

if k frrdo « -209> or (f mdo - -109) then 
beein 

fmao: =frroor200; bispent: ^biSP^nt-290; 
end; 

if (frrdd - -209) or * frrdd - -IMP'* then 
ceein 

frrdd: s frrad+209; bi sp*»nt.: "= 01 «pent.-200; 


end 

end; 


•Cblner^d> 


bluleft:=bluleft+209 


b1u1 eft:^bluleft+200 


PROCEDURE REORIO; 

Deem 

if t fra “ 109.) or ‘'fro = -100) thc*n 
Deem 

fro:afro-l09; rispent:=r:«»enT.-i9ft; redleft:=redleft+100 
ena; 


67 


if frd = 1 00> or / frd = -tW) then 
be-? in 

f rd: =frd-l00; rispent:=r:spent-!00; redleft: =redleft+100 
end; 

if < frrdo - 100) or ^frrdo = -109) then 
Deem 

frrdo:=frrdo-100? riseent:=rispent-100; redleft: =redleft+100 
end; 

if < frrdd = 100) or * frrdd - -\00 :» then 
bwin 

frrdd: =frrdd-190; rispent :=n spent-109; redleft: =red left* 100 
end; 

if < fbo - -200) or < fbo - -100) then 
Deem 

t'bo: =fbo+200; rispent:=rispent-290; redleft: =redleft+200 
end; 

if v fbd = -200) nr (fbd * -100) then 
Deem 

tbd:-fbd+200; rispent.:=rispent.-200; redleft: =red left+200 
end; 

if < fbrdo = -200) or < fbrdo - -l00) then 
bee in 

fbrdo:=+brdo+200: risrent • =rispent-200; redleft:^redleft+200 
end; 

if (f brdd = -200^ or < fbrdd 3 -100) then 
Deem 

fbrdd:=ffcrdd+290; ri spent:=rispent-200; redleft:=redl ef v-200 
end 

end; <redrid> 


Deem 

if person = p 1averse 13 then redrid 
else bluerid; 
c1earscreen; 

putxt< 15,10,'OLL INTHLLI^NC^/CnijHTEPINTELLIGENCE PROCUREMENTS' )s 
eutitC 15,11,' HGUE 3FEN CANCELLED FOR THE VEfift.'); 

pu 111< 15 * 13 ,' «' Pros s 0 RTIj»M to Cont l nue> ' >; 

re ad< e) 

end; tridmfo> 

PROCEDURE 8UVINF0; 
var 

e : char; 

PROCEDURE 8UVMENU; 
uar 

f : char; 

PROCEDURE OOITRED; 

PROCEDURE 00; 
oeein 

if <s fro~ 100 > or < fro=-100) ther 
Deem 

c1earscreen; 

putitc!*,10,'FUNOIH* FOR ru\$ tj^m h0S 0LREPOV BEEN PROUIDED' 

putm18,11.' <pro«« RETURN to Continue)' >; 

road< d > ; 
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ent. ' ;; 


ex 1 1< busrerru > 
end; 

fro: =fro-r 100; r i «pent :*n?pent ^1 00 : red 1 eft, : sped 1 eft- i 00; 
clearecreen; 

p»jtitO2*10*'Vou have .<ust allowed $100 for intelligence procurer 


putit< 12*1l* y 
read< d> 
end; 


<Pre*e RETURN to Continued); 

•Caa> 


ent. •* >; 


PROCEDURE BP; 
beam 

if ( frd 3 100 ^ or <frd*-t09^ then 
beam 

clearecreen; 

PUtitt 16*10,'R.INO?N0 FOR thts ITEM MAS ALFEROV BEEN PRQUIDEO' 

putit< 1E,1! RETURN to Continued )* 

read<d>; 
exit< duvnemj> 
end; 

frd: =frd*H 00; ri<Pent:=ri*pent>100; red left: =*red left-100; 
c1earecreen; 

putzt<12*10,'Voo have juet allowed st00 for intelligence procurer 


putitt12*1l* y 
read< d ) 
end; 


<P~eee RETURN to Continued >* 
<bb> 


ent .')» 


©RGCEOURE CC; 

Deem 

if (, frrdo-100 y or < frrdo~-100 ”> f hen 
beam 

clearnereen; 

eut 1 1(16*10*'FUNDIMS FDP TUI 9 ITEM HAS ALPEPDV BEEN PROUIDED' 

putit<i6*ll*' RETURN to Continue/'); 

read< d); 
exit< Duvmenu > 
end; 

frrdo:-frr^o+100; ri^pent.?^i<pentri00; red 1 eft:=redleft-100; 
ciearecreen; 

putitc 12*10* y Vou have juet allots $100 for mtellieence procurer 


put 1 tC12*11*' 
r*ad< d > 
end; 


'Free®. RETURN to Continued'); 


PROCEDURE uD; 
beam 

if , 'frrdd«100) or ' frrod®—'*00) f hen 
beam 

clearecreen; 

eutitt1S*10* / FHNOIN0 ©OR THIS ITEM HAS ALREAOV BEEN PROUIDED' 


put it/. 16*11*' 


<Rre«? RETURN to Cent 1 nue>' ); 
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reaa< d >; 

i buymenv * 

end; 

fr rdd:-fmcd+100; ri spent :■=**! spent* 190; «~ed 1 eft:=redleft-100; 
clean-screen; 

putit( 12,10,'Vou haw just. alloted *190 for intellisence procure 

-ant.' >; 

putit<12,11*' 'Press RETURN to Continued >; 

read< d ) 

-and; *’Idd> 

PROCEDURE EE; 
be? in 

if (fbo--200> or <fbo*-l®0> then 
be?in 

clearscreen; 

putit<16,10,'FUNOING C 0R THIS ITEH HPS PLREPOV SEEN PROUIDED' 

) ; 

putit< IS, 11 ,' <Press RETURN to Continued 

read< d); 
exit< buymenu) 
end; 

fbo:»fbo-200; r i spent:®r i seen**200; red1eft:=red1eft-203; 
c 1 ear-screen; 

putit< 5,10#'Vou have iust alloted J28G for intellieence/'counterm 
telliaence procurement.'>; 

PutitC15,11,' <Preos RETURN to Continued); 

read(d ) 

end; 'ee^ 

PROCEDURE FF; 

deem 

if <fbd*-200) or <fbd^-100> then 
besm 

clearecrepn; 

^.it.!t( 16,10,'RJNOING FOR THIS ITEM HPS PLREPOV SEEN PROVIDED' 

)» 

putit< 16,11,' <Pree? RETURN to Continued); 

read<d); 
ex i t< buvmenu > 
end; 

fbd:»fbd-200; nspent :=ri« pent *200; red!eft:^redleft-200; 
clearscreen; 

putit( 5,10#'Vou haue Just alloted F290 for intel 1 isence/'counterm 
te11 i aenc e ptoc urement.'^; 

put 2 tC 15,11,' 'Press RETURN to Continued 

read< d > 
end; 

PROCEDURE SG; 
oeein 

if ( fbrdo*—200 * or < ^brdo s —t00) tren 

beam 

clearscreen; 

putitC16,19,'FUNDING FOR THIS ITEM HPS PLREPOV SEEN PROUIDED' 

}; 

puti*< 16,11,' /p ra «s RETURN to Continue;'' ); 

read* d ); 
exit< buymenu > 
end; 
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4 .*-^S W- 4 /-S • — -’r *<^4 - -% » ' 'T «■* ->«■>* | <»#’t J -rf^or* } (=>"f'T — ^00 i 

clearscreen# 

putit< 5#l0# y You have just piloted 5200 for inte 11 isence/counter in 
tellisence procurement.' ># 

putit< 15*11*' <Press RETURN to Continue^' >; 

read<d> 

end; C 


PROCEDURE HHj 
bee in 

if <fbrdd«-200> or <fbrdd»-t0€O then 
beein 

c1earscreen# 

putlt<16,10,'FUNOING FOR THIS ITEH HHS ftLRE&OY SEEN PROVIDED' 

PutiUlS#tl*' ‘Press RETURN to Continue!?-' ># 

read<d>; 

exit< submenu; 


end# 

fbrdd:=fbrdd-200# rispent:^isrent*K200# red left: =red 1 eft-200 ; 
clearscreen; 

putit<5#10#'Vou have just alloted 5200 for intei1iseneencounterin 
tel licence procurement.' 

putit< 15# 11 #' ^Pr^.s RETURN to Continued ># 

read< d) 

end# r hh> 


beein 
case f 


of 


# a' #- / a / 

: 

mw; 

'b'#'B' 

: 

SB: 

x c'#'C' 

: 

uC # 

'd'#'0' 

: 

00 # 

.'E' 

: 

EE# 

f'#'F' 

• 

FF; 

'3'#'G' 

: 

9G# 

'h','H' 

: 

HH# 

'e^'Q' 

: 

if las 


end 

end# 


:=■ true 

^doi f red} 


PROCEDURE OOITBLUE# 

PROCEDURE fid; 
beein 

if ' fbo*t00> or < fbo=— 1 00^ then 
Deem 

clearscreen# 

Putit< 18.10# ^JNOING FOR THIS ITEH OLREPOV SEEN PROUIDED' 

••; 

p«»tit< !6# 11 #'* < Press RETURN to Continue}' ># 

^ead< d'?; 
exit< hi iMmenu > 
end; 

fbor=fbori00; bispent.•=o:spentr100# bluleft:=olulett-iy0# 
clearscreen# 

pu 1 1 tt 12 # 10 #" Vou have ; ust ^ \ 1 oted 5100 for : nte 11 1 sene e ®roc urem 

ent. ■' ')i 
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y Pre**. RETURN to Cent: nue.>' ) ; 


putitt 12,11,' 

r?acK ,3 > 

end; J* aa> 


PROCEDURE 88; 
deem 

l f < f bd-10#or < f bd--190 > then 
bee in 

c 1 ear-screen; 

PutitC1S>10,'FUNDING FOR TUTS ITEM HPS PLREftOV BEEN PROUIDED' 

putit< 18*11 *' <,Pr«^«. RETURN to Continued' )i 

read<d>; 
ex: tC bu<-*nenu > 
end; 

fbd:*ffcd+100s bi«»ent:=bi«p*nt+t00; bluleft :=dluleft-l00; 
clearscreen; 

putxt< l2#10# y Vou h^»e juot alloted T10G for intelligence procurers 

put. 1 1< 1 2, 11 *' ■=' Pnee z RETURN to Cent 1 nue>' ) ; 

read(d > 

end; Cbb> 


PROCEDURE CC; 
beem 

if (fbrdo=100) or <fbrdo*-10G^ then 
oeein 

<: learscreen; 

et»titM8#10#'RJNOTNG FOR THIS ITEM HUS QLREPOV BEEN PROUIDED' 

puMt<l6#ll*' '*Pno«.e RETURN to Continued' ># 

nead< d >; 
ex 11 < buvmenu > 
end; 

fbrdo:*fbrdo+!W; bi<pent: =bi«pent+109; bluleft:=bluleft-100; 
clearscreen; 

putit<12*10#’Vou have juet glinted 5190 for intelligence procurer 

putit< 12*11 <'Pre«* RETURN to Continue^ ># 

read< d > 

end; <cr> 


PROCEDURE 00; 

Deem 

if ( ^'brefd^100 > on < f brnrj»—1 00 > f hen 
Deem 

cleanerreen; 

putit< 1S # 19»'-UNOING FOR THIS ITEM QLREflOV BEEN PROUIDED' 

wjt.iv !£#!1 ,' upturn to Continue.^ ># 

readt d >; 
exi t< bu^nentj > 
end; 

f br dd: “fbrdd+t00; b 1 * pent: =0 1 sp<*nt. 100; h \ u 1 eft: =b 1 u 1 ef t-100 ; 
clearecreen; 

°utit<12*10*'Vou hau* njst alloted T199 for intelligence erocuren 
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< Press RETURN to Continue^ 


?»ut 1t< 12 # 11»' 
read< d> 

en d# \dd> 

PROCEDURE E5; 
besin 

if <fro s -290> or <f ro»-100> r.h*n 
besin 

c1earscreen; 

PUtiU IS#10#'FUNOINR PrtR THIS ITEM mm$ HLREPOV BEEN PROVIDED' 

•' # 

put 1 1< 1R » 11 #-' / Press RETURN to’ Continue>' )# 

read< d > i 
e.vi t/ huvmenu) 
end; 

fro:sfro-200# biSP*nt:=hi?pem+200; bluleft: =bluleft-200# 
clearscreen; 

putitf 5.19*'Vou have Just allntod *290 for intel 1 i seneencounterin 
te 11 1 sene e proc urewent. •"); 

putit<15.11#' >P^pss RETURN to Continue*'}# 

readc d) 

end# ' 

PROCEDURE FF; 
oesin 

if (frd»-200> or (fnd«-l00> then 
Dwm 

c lear<*creen; 

putit<16#10#'RJNOIN& FOR THIS ITEM HRS PLREROV BEEN PROVIDED' 

># 

putit< IS.11 #' RETURN to Continue*' ); 

reacK d) 5 
exit< buymenu^ 
end# 

frd:=fr0*290; bi spent :=m seentr200; bluleft:=b1u 1eft-200# 
c1earscreen; 

putit<5#19.'You Wave Just alloteo >200 for mtell l sene encounter in 
tell:sene e proc urement,' >; 

PUtitC15.11#' ''Press PETURN to Continue/'>; 

read( d ^ 

end; <* *'f} 

PROCEDURE 06; 
besin 

if <frrdo=-200> or <frrdo=-100^ then 
besin 

o1earscreen# 

« put 11 <1S#10#' c UN0THG FOR THIS I T EH HN$ HLREHOY BEEN PROUIOED' 

•* i 

putiv, IS# 11 #' RETURN to Continue*' ')# 

reac< d >i 
ex 1 t< busroenu * 
end; 

frrdo:=frrdo*200; bispent:=bx«pent+290; bluleft:=01u1eft-200; 
clearscreen; 

putit<5.19.'You have iu«.r. aPoted -5290 * or mtel 1 1 sene encounter in 
tellisence pnocurewent. 

putiu 15.11#' 


Pn*-5S RETURN to Continue*' )# 


read< d ) 
end; 


PROCEDURE HH; 
besin 

if ( frrdd^—20H > or < frrdd=- 100 > then 
bee in 

clearscreen; 

putiu16#10# PUNOIN© FOR THIS ITEM HQS 3LRER0V SEEN PROUIDED' 


putitC1S#1l#' Press RETURN to Continued>; 

read< d>; 
exit<buymenu) 


end# 

frrdd: ®frrdd-299; bisrent-; =b is pen t.+200 ; bluleft: =bluleft-209; 
clearscreen; 

put i tc 5 # 10 #' Vcu nave just alloted 5299 for mtel liaenc e/counter in 
te11 1 sene e pr oc urement . / ); 

putitC15#1t*' ''Press RETURN to Continues'>; 

read< d> 

end; C hh > 


bee in 

case f of 

'a','*' : hG; 

'D'#'8' : SB; 

/ c / >'C' : CC; 

'd'# '0' : DD; 

'e'#'E' : EE; 

' f' #' F' : FF; 

: GG; 

'h'#'H' : mH; 

's' *'Q' : iflae : = true 
end 

ena; <doitblue> 


Forces' >; 
Forces' - 
R&G' >; 
R&0' >s 


Deem 

c learscreen; 

put 11 <32 #l#'PURCHASE OPTIONS" ); 

put it.< IS #3# 'ft.., Current F^rce St renet. n of Energy Offensive Forces' >; 
putit< IS •*, ' 3 . ..Current Force Str^net.h of Enemy Defensive Forces' ); 
putitc IS#5#'C.. .Current Offensive Enemy R&O Projects'); 
eutit< IS#o#'D.. .Current Defensive Enem<"» R&C Projects' ); 
putiti 1S#T# / E.. .Supply Countenntel 1 1 pence Resardine Own Offensive 

Putitc : S,3 #'F.. .Supply Counterintell isence Reeardins Quin Defensive 

putxt< 16#9#'9..-Supply- Countenntel 1 1 sence Reeardins Qu»n Offensive 

putitv IS #10#'H..,3 up» 1y Counter t nte11:senee Resardins Own Defersive 

putit<IS#11# '0. ..Quit" 'i 

eutit< 13# 1*4#' Intel 1 isence Cost eer Item <Q thru D): £U>3' 
put:t< 13# 15# 'Countenntel 1 1 sence Cost per Item vE thru H>: 5200'); 
lf person = p 1ayprs C1] then 
besin 

sotoxyv 18# 16 ';wr:teln< 'Qnnual Defense Suoset Remainins: s' ,redl 
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eft > 


end 

p 1 se 

besin 

?otoxy< 13# IS >;«»»riteln< 'Annual Defense Budset Remaining: -5' >olul 
and; 

Putit* 18,13,"ENTER OPTION LETTFR? ' >; 

?otox*^< 3T * 13); read< f *>; 
if* person » el ayersC 11 then doitred 
else do it blue- 

end; <buymenu> 


basin 
repeat 
ouymenu; 
until iflas 

end; < buvin+"o > 

PROCEDURE GETINFO; 

••ar 

e : char ;p»s»op.os,o# l*c : mtaw; 

PROCEDURE LINE1; 
basin 

if person = p 1aversC1] than 
basin 

if ro - -109 then 
beam 

putiti19,3,'CIA unable to broach enemy counterintellisenee Da 

rrier'); 

pvit/ 1 me! > 
end, 

if rn = 190 rhon 
besin 

p :- random mod 290s a •= random mod 208; 
o := ooa+oob; op : = o-e; os := o+s; 
sotoxvtf 19 # 3 •' ; 

»nriteln< 'Tot al erp^y offensive utils are estimated to be betu* 
pen '*op.' and ',os'>; 

exit/ 1 mel > 

end; 

putit<19,3.' NO INFORMATION PROCURED') 
end 
else 
besin 

if do = -199 then 
besin 

putit/ i9,3,'CIP '.mat?I p to breach enemy counterintel 1 lsence ba 

r r i er' ; 

exit', line) > 
end; 

if do - 109 then 
besin 

p ;- random mod °00; s : = random mod 200; 
o : = roa-frob; op : = o —p ; os : = tvnq; 

?otnv^ 18.3 >; 

Mir: r ,p i n< 'T ota 1 en»my offers.i 1 *s ut 1 1 s arp est i mated to oe betui 
pen .op * y and ' .o** ); 
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NO INFORMATION PROCURED' *) 


1 inel > 

pnd; 

put i tC10#9#' 
and 

pnd; <' 1 ?. n* 1 ?■ 

PROCEDURE LINE2; 

Desirt 

if Person = ®iayersCl] then 
Dps in 

if M - -tOO then 
oesin 

PutitX 10#12^'CIQ unablp to breacn *nemv counterintel 1 isence d 

^rri»?r' ); 

exit<1ine?) 
ena; 

if rrt - 100 then 
cesin 

p random "wcf POO; * : = random mod 200; 
c :=» hda+bdb; op := o -*»; op : = o+p; 

?Ot nvy< 10,t2); 

writelrri 'Total enpmw deferx!*** utils are estimated to be betw 
een ',op *' and '#os); 

exi t,< 1 ine2 ) 
end; 

putit<10#12#' NO INFORMATION PROCURED') 

and 
el«e 
bes in 

if bd - -100 then 
bps in 

putit< 10,12.. 'OIP f.raoie to breach enemy countprint* 11 1 senee D 

) i 

exit< l ine2 > ’ 
eno; 

if Od = tQA then 
besin 

p :» random mod 290; s ?= random mod 200; 
o : = rda-<-rdb; op : = o-p; os : = o+s; 

30tOXM<10,12>5 

uritelrK'Total ^nemv defensive utils are estimated to dp oetui 
ppn ' ,op # •’ and ' ,os :•; 

ex 11< 11 ne2 ) 
end; 

PUtiU 10,12,' NO INFORMATION PROCURED') 
end 

pnd; Tljn*2> 

PROCEDURE LINES; 

DPSl n 

C 1-05 

if Person = playprsCl] then 
bps in 

if rrdo - -100 then 
bpsin 

®utit<10,15#'Cl0 unahlp *o crearh enemy counterintel1lsence D 

amier' )i 

p^n t< l i ne3 ) 
and; 

i+' rrdo - 100 then 
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hP-ai r 

for 1 : = 1 to ntwofsyst.pms do 

if < bs Ci]. status=£) 3rd < bs Ci3.dp1 etp*0 > then 
i f< bsC 1 3 . c ort=' OP' > nr < b*C i 3 . sort®' 09' > then 
c: =c+t i 

?otoxv<10>t5>; 

turi teln<'Reports indicate enemy currently f undirre ' ,c>' of fen 
siue R&0 projects' ); 

ex 11 < 1 me3*> 
end; 

putit< 10# 15j ' HO INFORMATION PROCURED'> 
end 
else 
bee in 

if ordo = -tO0 then 
besin 

p*jtit< 18# 15#'CIP enable to brescn enemy counterintel 1 laence 6 

arrier' >; 

px 11 '1 11 ne3 ) 
end; 

if brdo = 100 then 
bee in 

for ir* 1 to numofsyst em< do 

if <rsCi3,status«2) and < rsC i 3 .del pte*0> then 
lfXrsCi 3.sorr*'0Q' ^ or < rsC i].sort-' 09' > then 

c:=rml; 

eotoxys 10,15>: 

mriteln<'Reports indicate pn^my current ly funding ' >c*' offen 
siue R&0 projects' >; 

exit<1ine3> 
end; 

putitc10,15#' NO INFORMATION PROCURED') 
end 

end; Oj^e3> 


PROCEDURE LIHE4; 
bee in 
c : * 0 ; 

if person = playersCl] then 
oeein 

if ^rdd - -100 th^n 
besin 

puttt<10#18#'CTP unable *o breach enemy ccuntermtel 1 leence d 

amier' .»; 

pxi tv 11ne4) 
end; 

if rrdd = 100 then 
bey in 

for :: = 1 r.n nuroof systems do 

if < bs C:3. status-2 > and < bsC i 3. de 1 ete=0) then 
if' bsCi3. sort= # DP' *) nr ‘'bsCO. sort-'OB' ') then 
c:=c+l ; 

sotoxy*10»1R ); 

mri?elm 'Reports indicate enemy currently funding defen 

SI up ft&G projects''); 

exit< \ me*> 
end; 

put l tc 10 * t R *' HO INF0RMOT TON PROCURED' ) 
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bee in 

if brdd = -l 00 th*=-n 
besm 

pMUt.( 10*JS.'CIft unable to breach enemv counterintel1leence d 

arrier' 

evitt 11 ne4 > 
end# 

if brdd » 1O0 then 
besm 

*'or i: = i to ^Hfnof* sv *?te*< do 

if < rs i il . -status-2 '■ and •• r<-C 1 1. de 1 ete** •' then 
1 f v rsC i “]. *nrt=' Q0 y > or 'r*Ci]. sorts' OB' > then 
ci^+l ; 

9otoxy< 19# 19 

i»«ritel n< ' Report.? indie ate enerov current! y fundi ne ' #c #' defen 
31 Me R&O projects'* >; 

exit< l in*4 ) 
ena# 

eutltt10#i3#' MO IMFQRHPTJON PROCURED'■) 
end 

end# ; 1 i ne4 ’> 


bee in 

ciearscreen# 

puti t< 2S#3#'CURPFNT INTELLIPENCE REPORTS:'); 
put 1 1< 5 *8#'ENEHV OFFENSU'E FORCES INFORMATION: ' )# 

1inel; 

put l tt 5 # 11 #'ENEHV DEFEHSIUE FORCES INFORMATION:'>i — 
1ine2; 

putl t.i 5 # 14 *'ENEHV 0F r ENSI' *E P*-D INFORMATION;' N< # 
l ine3; 

putl Vs 5#l? *'ENEHV OEFENSIUE PtD INFORMATION:-'); 

1ine4; 

putit< 27#2l # '<Pre<3 RETURN to Continue' ’)s 
re act e ; 

end; •! set i n*’o * 


oesin 

iflaei := false; 
repeat 

>: lear screen; 

PutxtO.5#'SELECT INTELLIGENCE OPTION: ' 

Putitt13#9#'3...Recpive Ptp«*iou«Im Purchased Inteliiserce Information > 

putitA 13#tl#'B...Purchase Intel 1 1 «pncencounter:ntel 1 lsence Information' 

®utit( 13#13# C.. .Cancel £’1 Intel 1:«w>nre'Counter:nte 11 leence Requests' > 

putit< 13#14#' # c or 'he Current Vear' ># 

putltv 13#16#'0...Quit' ); 

?otoxv< 3? #5 ); react d'); 
case d of 


a', - 

3' 

; ?etinfo; 

'b' # 

9' 

: bu^info; 

c' » ' 

C' 

: ridlnfo; 

'p' . 

0' 

: iflae := 


otherst«.e hplp 
end; 

unt:1 if1as 

end # •': nt >> 1*tar.u - > 


73 


E6M6NT PROCEDURE INCTVP; 


{.Called annually. Updates intelligence =*nd expenditure variables. 
Computes projected total systems operating costa for upcomina year. 
Shelves undecided new R&O tvs terns fmm previous year., and determines 
she1vine penalties. Decrements new budaet by twice previous budaet 
overrun. Introduces random draw to adjust expected budaet and ft&D 
figures.> 
van 

jj# 1 *a,uniform#deviation : inteeer; 

FUNCTION MINIMUM : mteser; 
oeain 

if a < = 300 then minimum := a 
else minimum := 300 
end; <*mint mum> 

PROCEDURE RINITRO; 
var 

jj earlier : inteaer; 

PROCEDURE uSSUME; 
beam 

if rsCjl.status 3 2 then 
beam 

if rcCj 1.yrofRaO - 2 ^>*?n 
Oesin 

rsCJ ] .yrjRaDcn^tr^rsCj 1 .vr3Ra0co*t+< 50*jj )* 
rrdseent : = rrdspenrt + rsCJ3.yr3Ra0cost; 
red left : 3 redWt - rsC.i 3. yrSRaOcrst 
end; 

if rsCJ3.yrofRaO - l then 
beam 

rsCJ3. vr2Ra0cost:=rsCj], vr'?RaOcosf.-K 30 *jj >; 
rrdspent : = rrdSPent + rsC J ]. yrSRaOcost; 
red left ? 3 redlpft - *^sC j 3. yr?RaOcost 
end 

■»nd 

end; 


beam 

earlier := year - \; 
for j 1 to numofsystems do 
beam 

if ( rsC j 3. yrRaOstarts < 3 earlier:* and ( ns C j 1. status = 1 ) then 
if rsCj].delete = 0 then 
beam 

rsCJ3.status 3; 
rsC j 3. vravai \ :*= r-sCj 3. vravai l ««* 1 
end; 

if <rsCj j. yrRaOstarts / - earlier) ^nd (rsCj3.status = 3) then 
if rsCj3.delete » 0 than 
beam 

r<LJ 1. yrauai l C > 3. ,j ra*ai l +■ 1; 

if rsCj3.yrofPaO = 0 than rsCJ3.penalty := 0; 
if rsC j 3.yrofRaQ - t then 
beam 

a •= r* C J 3 . ,j r l R af!r t ; 
rsC j 3 . penal ty : - minimum 
end; 

if rsCJ3.yrofRaO = 2 then 
beam 

a : = rs C J 3. vr SPaOc ost; 
rsC j 3.penalty ;s minimum 
end 
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end; 

if r s re C j ] . yrRaG*“t err s < = -?^r] i»?r ^ and < re C J 3 . 7 tatus = 2) then 
if rsCj3.delete * ft then 
besm 

re C; 3. ymf RaO ? - C J1. vrofR ?0 +1; 
if reCJl* yrauai l = v<?=ir then rs[.» ]. status : = ; 

assume 
»»nd 

end 

end; -frimtrd> 


PROCEDURE 8INITRD; 
uar 

j * ear 1 i er : l nteeer ; 

PROCEDURE ftSSUME; 
besin 

if bsf. j ]. status - H 
beein 

if bsCJ3• *mfRaO * 2 then 
Deem 

bsC j 3. yrSRaOcost: =bsC.» 3 • ^r^RaHcostx 50 *jj >; 
brdspent !- brdspent + bsCJ 3. yr.7Ra0cost; 
bluleft : 3 bluleft - bsCjl.^rTRaPcost 
end; 

if bsC j 3.yrofRaO * 1 then 
besin 

bsC-J 3 • vr2RaDro«t: =b«C.i 3. vr2RaGrostx 50*jj >; 
brdseent :« brdseent + bsCJ 3 - yr2R*0cost; 
bluleft ; = bluleft - nsCj3. ,j ~?Rancost 
end 

end 

end; f assumed 

seem 

earlier := ’-*<?ar - t; 
for j := l to numofs^stems do 
besin 

if < bsC J 3. ■.■♦rRaOstar* * < = i e*~ • and ( bsC .»3. status = 1 > then 
if bs[ j 1•dele* e = ft then 
be^in 

bs C j 3 . status :* 3; 
bsCjl.^raoai l := b«CJ 3-yrsuail > l 
end; 

if < dsCj 3 • vrRaOstarts y = earlier' 1 and < bsCj 3, status = 3) then 
if bsCJ3.delete = ft then 
besm 

bsC j 3•yrauai1 ?» o«C i 3.vrauail + t; 
if bsCJ j. virof RaO = ft then bsC j 3. penal tv := ft; 
if osC j 3• ^rot'RaO = t rnpn 
Deem 

e := b«C »3.urlPaOrost; 
bs£j 3. penalty :» minimum 
end; 

if bsCj3-yrofRaO = 2 then 
Deem 

a := bsCj3.yr2RaGcost; 

DsC j 3. ppnal t '-i j = minimum 
end 
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end; 

if • bsCJ ]. yrfiaQstarts <* e a»~! ier > and c bsCJ3. status - 2 ) then 
if bsCJ3.delete = 0 then 
besin 

bs C j 3. yrofRaO : = be C j 1 . yrofR aD *M ; 
if bsCJ3.yrauai1 - year then bsCJ1.status s 3 0; 
assume 
end 

end 

end; <bmttrd> 


PROCEDURE INITINTELj 
oesin 

if year = I then 
besm 

fro : 3 0; fbo :=» 0; 
frd := 0; fbd 0# 
frrdo 0; fbrdo 0; 

frrdd :- 0; fbrdd O 

end; 

ro :» fro; bo : = fbo; 
rd :* frd; bd := fbd; 
rrdo : 3 frrdo; brdn := fhrdo; 
rrdd frrdd; brdd fbrdd; 
fro 0; fbo ?= 0; 
frd := 0; fbd := 0; 
frrdo :» 0; fbrdo := 0; 
frrdd := 0; fbrdd := 0 
ends finitIntel> 


Deem 

lf not <year = 1 > th^n 
besin 

if ''red left < 0> then redbudeetCy«»ar] := redfcudeet C year Jeered left, 
if Cbluleft < 0> then biuoudeetCyear 1 := blubudeetCye»r]+24bluleft 
uniform : = random mod Its 
delation := 150*uniform - 1000; 
redOudeetCyear3 : = redbud?etCvpar] r donation; 
bluOudsetCyear] :* blubudeetCyear1 + deviation 
end; 

red left : = rodbudeetCyear] ;bluleft := b 1 uo« dset C ypar 3; 
ramseent := 0;oa^spent j = 0; 
riseent := 0;oispent := 0; 
rrdspent := 0;brdspent 0; 
for i 1 to numcfsystems do 
Deem 

rsCi3.unitbuy : - rsCi ]. eurl imit; 
rsC;3.tuai := rsCi3.inventory; 

DsCi3.unttbuy ;= bsCi3.eurlimit; 

DSLiJ.tual := bsCi1•inventory; 

if (rsC i 3. inventory N y ) and < r* C 1 1, delete = 0> then 
redIeft := redIeft - <rsCi3.inventory*rsCi3.orcost n 
if < bsCi 3. inventory >0'* and < fcsf i 3. delate - 0"* then 
bluleft := bluleft - < bsC:3, inuentory*bsC i 3 . 0 Poost> 

end; 

jj:= random mod 4; 
rmitrd; bmitrd; 
lnitmtel 

end; timtyr} 
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Thfc FOLLOWING SEGMENTED **OC?DUPGS uRE COMPILED wNQ INSERTED IN THE MAIN 
PROGRAM PS BATCH IB USING THE COMPILER 'INCLUDE' OPTION, DUE TO PILE 
dIZE CONSTRAINTS.> 


SEGMENT PROCEDURE PRINT (p<?r?nn : -rrirv" 

^Called oetionalW. Prints end-of-vear decision summary for players.> 
var 

i >j , lef t,a-eseent • ispent.rdseent ; mr p«er ;«y«o»jdsx*t : =»rray Cl.. 203 of mtw 

*r ; 

o : cnar; 


PROCEDURE TURNENO; 


• >ar 


1 : integer? 


Deem 

roa 

• — 

0; 

boa 

: = 0; 

rob 

: = 

0; 

boo 

: 3 0; 

rda 

: s 

0; 

bda 

: = 0; 

rob 

: = 

0; 

bdto 

0; 

for 

1 : 

s 

1 to 

numof 


do 


Deem 

if •’rsC 1 ].•sort 3 'HP'") and <r^fl1.delete s 
roa :» roa + rs£ 13. ijm Isttl ; 
if < rsL* 13. sort - 'CR' =»nd < r<n 1 , de!*»te • 
rob := rob + rsC13.utiIsttl; 
if rsC 13• sort = ' OP' > and < r*. C l1.delpr » - 
rda rda + rsCl 3.uti lst.t.l j 
if < rs Cl 3 • sort * ' 00' > and '' rs Cll. d* 1 ete 3 
rob rob + rsC13.utilsttl; 
if bs Cl 3. sort = OP' ’> and < b< r U. de 1 et * - 
boa ;= boa +• bsC 13. uti isttl; 
if < bsC13.sort 3 '00' > and * bsC11.de1 ++* - 
bob : 3 bob + d< C13. ut 1 1 stt. 1 
if < bsC 13• sort = ' OP' > and •' bsC13. oe 1 ete 3 
bda : 3 bda t osCl3.utiIsttl; 
it' < bsC 1 3. sort. = 'OB' '• 3rd •'b«Cl 1. del ete 3 
bob : 3 bob + bsC 1 ].ijt i Isttl 


end 


end; 


<’ turnend} 


0 ) 
CV. 
0> 
01 
0> 
0 1 
0 1 
0!> 


then 

then 

then 

then 

then 

then 

then 

then 


PROCEDURE OUTPUT; 


r «; 


PROCEDURE TITLE; 
besnn 

wr i te 1 n< z>' ' ’•; inr * t e l n< z »' 

"•rr eln< z,' ' >;»nrit eln< z, ' 

"»ri telm r,' 

writein< z»' 

wri telm z,' 

mri te In* - z>' 

mritein', z,' ' ; 

writein<z, 

"<r i teln< z,' );write 1 n< z,' 

eno; 


' i;wi*e)n' z *' y 
' sprite in'z>? 


i i - 

1 uNNHpL DECISION SUMMARY i ' 


PLOVER: person, ,j EPk: 


• ;»’»ri r e i n*: - •' ' .< 

t: r 1 * *:■ 


,‘r*ea 


PROCEDURE LlSTK n 
be^m 

write In', z,' 


inte°or>; 

^3foe'. T*-»po *? 


',;vsCn3.name, ' ',svstnj.=ort,' 
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mr it-elrr z »' I nvent : ' »= v« £ n ]. t n< '*ntorv •; 

writ elnC z*' 3'asdem owrv !on cost: y #sys£n3. opcost#' 

System acquisition cost: ' *s*sfn1. accost >; 

writeln 1 'r#' UMl value? ' .?vsf.n}.utiIs#' Purchase rat 

e: y #svs'Cn3.Furlinnt )» 

••»riteln r z#' To?.al operation costs: ' > svs£ n 3.OPcostTT1 #' 

Total ut 11 val up: ' #s’?»sCn].ur .i 1 s TTL '• # 
z*' ' teln< z #' ' ’) 

*nd; C1lst1> 

PROCEDURE LI3T2<n : integer>; 
war 

m#mro : lnteser; 
bwin 

iuritelr.< z* y Name< Tmp» •: y .svs£n3. name,'*' '* #svs£n]. sort*' :>' ># 

mm: a sysC n ]. yrnf RaO #* 
if sss£n3.yr3RaOco*t>0 than m:=3 
else if s*s£n3. *r2RaGcost>0 then ms=2 
*lse m: =1; 

"iritjjlmz/' R&D c^mplet.ed: 'mWj' Vrs of ft&Q rp«u 

ired: 

writelrrtz#' Co***: Vrl: ' #s’=<sfn].yrlRaOcost*' Vr2 

: '#sss£n3.*r2RaDcost#' Vr3: ' #ss«rr> 1 .vrTRaOco^t •; 

writeln^z#' System operation cost: '#sys£n3.oncost# 7 

System acquisition cost: ' ♦s'asCn]. accost); 

writeln< z#' Util value? ' .svs£n3.i»tlIs*' Purchase rat 

e: '#s*s£n3.purlimit>; 

mriteln* z*' ' *’>;iuriteln< z*' '> 
end* Clist2> 

PROCEDURE INU* 
war 

recount : int.pq»r; 

Deem 

write IrK z *' I. 3V C TEHP nifiPFMTLV TN INUENTORV: y 

i'iru>?lmz/ ' 
c ount:; 

for n: = l to numofsystems do 
beein 

it* * s*s£n3.inventorv>0> ana Csys£n3.delete**"‘then 
seem 

ListH n>; 

•: cunt: = count + 1 
end 

end; 

if count** then 
Oesin 

«»ir i * e 1 r* z #' ;nhHE' > ; 

writelm. r#' ' '*;mr iteln<z #' 1 

ana 

*nd# ** * n* • *> 


PROCEDURE NOT!HU; 
war 

n,count : integer; 

OPPin 

'■irir^inc r, ' II. SYSTEMS QUQILGiRLE SLIT NOT CURRENTLY IN INUENTORY: ' 
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writsin< z»' ' •; 
count:=y; 

for n: = 1 to rumofsystem* on 
beein 

if < *?yeCn]. invent orv=vf > 2 nd <-s^eCn].delete=0 )then 
if sysCn]. yravai l<=vear then 
Deem 

1 istUn); 
count:- count * 1 
end 

end; 

if count=0 then 
Deem 

wri te 1 rK z* y NOME'); 

'unteln*' z*' ' );writ*ln< z* ' y ^ 
end 

end; t notin'*} 


PROCEDURE TOTS; 
oeein 

t.irireln<z, y T T I. TOTPL NTH. POINTS PCCUWLPTED: ' > 
iuriteln<z# y y >; 

1 f per«.cn*p 1 aeere C 11 then 


beein 

uiriteln< z*' 
n»riteln< z# y 
'«riteln< z* y 
writeinc z»' 
end 
else 
Deem 

uniteln< z> y 
«nriteln< z* y 
mri t.eln< z*' 

'•»riteln< z# y 
end; 

writeln*. z*' ** >;mriteln< z* y 
end; 


•^M<t,en 

System 

'^M<t om 

System 


System 

System 

Syst 

System 


ty pp HP* 
type OB: 
r.^ee OP: 
type OB: 


type OP: 
type 08: 
r vpp OP• 
type 00: 


'moa >; 
y * rob); 
' >rda 
y mob) 


y ,boa>; 
y #ooh); 
y * hda,); 
'> odb / 


ttots} 


PROCEDURE CURRO; 
var 

n* count : int.eeer? 
bee m 

umitelnt z* y TO. ONGOING R*0 PP0lECT3: y >; 

'uri tein< Z • / y >; 
count: 

for n:» 1 to numofsyetems do 
bee in 

if ( ;.y«.Cn].statue *?) =>nd t ?ysin3. delet^KOthen 
if sysCnl.yrPaQstarts<=vear then 
^ Deem 

1 1 *z2< r\)i 
counts* count + t 
end 

end; 

it count** then 
beein 

wr 1 1 e l n< z> y NONE y '; 

wr 1 te l n< z/' ' > ; »or 1 1, e i n<. z *" y "* 
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end 

end; 




PROCEDURE SHURO; 
var 

n#count : inteser; 
bee in 

uiriteln', z,,' U. SHELVED R*G PftPjPCTS:''; 
iuriteln< r# y 
count:=#; 

for n: = 1 to numofsystems do 
deem 

if <■ svs C n 3.status -! 5 or f sytffni. status s 7> then 

if < sysC n]. yr^aOst art s<f=veer) =md <svsCn]•delete-#> then 
br?m 

113 t«c!( n >; 
count:» count * t 
end 

end; 

if count-# then 
Deem 

>ur i te 1 n< r*' NONE•' > ; 

mri teln< z*' ' );inritein< ?.* ' > 

end 

end; f shurd> 


PROCEDURE BUD©; 
uar 

m : integer; 

PROCEDURE COSTS; 
var 

lJ : :nteser; 
oesm 

for u :- t to nijmofsysf.ems dr 
cesm 

if ' svsCi j 3.GPCOsttM '■ iV> *,nn < 3y< f i.i ].vrauai 1 <- year,* tnen 
if svsC 1.; *1. delete = y then 
deem 

mrite In' :f f ^mei type •: #svst l j 3.name>' 

#svsCu3. sort # y v >; 

mriteln<z*' Total os»eratine cost: s 

sys C i j 3. opt osttt 1 "• 

end 

end 

end; C costs!'* 


Deem 

mri teln< 7 
mri te ln< 7 
mrt te lm : 
mritelni : 

. • S' ,aasp*nt •*; 

mri teln<: 

... -5"'* 1 spent); 

mritelnc: 

,.. S' .rdspent *; 

mri te!n<: 

" ;; 


»Jf. wHO-r.c-ugcjR SUOPrET TNPnRMftTTON' •»; 

Tor .^1 dnn»»al l^^nce: s' .svsoudsetCvear 3 >; 
QfftOimr. <?p^nt in =.caui * i tion«. 

Amount -Pent r,n intel 1 isence.... 

dmot.int. s.pont ~>f* R ^nd 0... 

dpor=tt.m« cost. • ng ?y*.r em Cthose m inventory 


85 






uirxtelrK r* ' y >; 

CO'S tSi 

m : = vear r t ; 

'uriteln<. z* ' " >; 
writeln< z*' 
writeln( z*' 
budgetCmJ ) 
end; 

o e~? in 
title; 
iw; 
notinu; 
tOt*5 * 

curPQ; 
shuRO; 
huda 

end; <* output} 

Deem 

turnend; 

if person = pi aver-?.Cl ] then 
beam 

svsouds*?t : = r^dbudeet#1eft : = ~pdleff;sv* : - r«; 
a^spent : = ra<*spent; i spent : - rispent ;rdspent := rrdspent 
end 
else 
oeem 

sysbud^et : = b 1 ubudeet; l eft • = b \ u \ +* t; sv« : = bs; 
aeseent := baespentjispent : = bispent;rdspent := brdspent 
end; 

clearscreen; 

?ot.oxv< 13*8); 

writeln<'DECISIONS 9V person," FOR vcqp - .M*ar,' PRE COMPLETED. 7 >; 
if NOT <prtr*'3'> then 
oeem 

put 1 1< 15»10,'^Press "P" +n obtain printout of vear"s. decisions; 
P»Jtit< 15* 12,' nr" '• 

end; 

putit<22,14,"<Press RETURN to continue same elav>'); 
read*. d >; 

if t. d»'p' > or <d^ y P"’* then 
ceem 
output; 

PUt1TA14*19#' 

' ;; 

putiu 14,12*" 

i 

re B<T, a > 
end 

end; >nnt > 


Total iY>onie« remainin'*: *'#left># 
Expected defense budeet for next vear: s 

'*h! idcO 


SEGMENT PROCEDURE VEARENO; 

^-Establishes annual same winner, Compute® the erooaDilitv of mar and 
either dispiavs aduisorv to the umpire for his dec ision * or makes a 
random draw to compare asainst tne computed probability to decide 
mar went occurrence. Creates data file on rpmeo diskette if 
avers decide to suit and resume same at. =, later time. > 

uar 


, svs 
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red#Dlue 


1 nteser; 


PROCEDURE WINNER; 
uar 

best ; string# rl,r2#ol#b2 : integer? d : char; 


PROCEDURE uECLwRE# 
begin 

clearscreen; 
eutit.C 15 , 3 >' 
put, 1 t< 15#4, I 
putiu 15#5 #' l 
putitt 15#6# •' I 
putiu I5#?# y l 
PUtitC 15#6#' I 
put.it< 15#3#" I 
put, 1t< 15#l0# y i 
?otoxy<15# 14 >#writeln< y 
put,itt 15# 15#'' I 
put, i t( 15 • 16. y I 
p*j t i tX 15#17# y I 
end# 


PS 3 PP9» l LT OF Ci TPLLV OF 
OPEROTTONPL FORCES UTTLITV 
POINTS... 




1 > i 


I 


FOR PQHE VEPR 


y #*-»ear # 


);putit.( S5#14# y I' }# 


\' )i 

I' .); 


•fdpc 1 are } 


PROCEDURE TIE# 

Degin 

PUtitC 15#11 #'! 

PUtitC 15# J2# y ! 

putit<15#13#' i ...0 TIE IS DECLQREO 

end; C1 1 e **■ 

PROCEDURE WHO; 
begin 

?otoxy< 15# 11 .);>uriteln< ' I 
put,ltv 15# J 2# ' I 
putiv, 15# 13# y l 
end; 


begin 
r i : = 

roa - bda; 

if 

~t<fl 

♦ hen 

rl :=*; 

r2 : = 

rob - bob; 

if 

r2<Q 

then 

•4 

II 

(. 

red : 3 
bl 

= rl f r2; 
boa - rda# 

if 

bl<@ 

then 

bl:=0; 

b2 : = 

bOD - r^b; 

if 

o2<0 

then 

b2:=0; 


blue := bl ■*- b2; 
best := y none'; 

if red<b1ue then best:=»1aver?C21 * 
if rod#blue Then op<t : v-»erdr 11 ; 

dec 1are; 

if bests'none' then tie 
else ‘«tno; 

®ut 11 < 27#20#' P^ess RETURN to Cont inue >' •; 
read< d > 

end# <'»?n rnerj- 


y >be«T '#putttcS 5 # 11 # y 1 ' >» 
...IS DECLARED WINNER 

\ itihn > 


I ' )i 
>; 

1' > 



PROCEDURE MPVBEWmR; 
uar 

name : string; *#smal ler. I arser : m*eser ;r.e«t. .donenon s char; 
el#sm#la#diff : inteserC121# 
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PROCEDURE LOGO; 
oe-sin 

clearscreen# 
PUtlttt3#4,'* 
put lU 13#5#'4 
putitx 13#b#'* 
putit<13 
eutitt 13#3#'* 

PUtitX13#3# '4 

eutitt13#10#'* 
PutitC 13# 11 #•'* 
put:t<13#12#'4 
end; 


MW MW 

MW M MW 
MW M MW 
MW W M MM 
MW MW 
W M 


P 

PPM 
PQ PP 

MM W Up 
MM Mp 

PW 


MW 


PRRPPPR 
RR RPR 
PRRPRRR 
RR RR 
RR RR 
RR RR 


i 1oeo > 


4 ' ># 

4 ' ># 

4' >5 
*' ); 
4' 

4' ># 

4 / )# 

4' .) 


PROCEDURE WwR; 

'Jar 

d : char; m : inr^<»r; 
begirt 
loso; 

irt := year 4 1; 

if smaller^red then redbudeetCm]:^redduasetCm]-1080 
else b 1 ubudset [in ]: »b 1 ubudeetC m 3-1 000 ; 


putir.C 13# 13 #' 4 ...has de^n de**!.ar*d as a result of the * / >; 

putitC 13# t4#'* disparity between plaver operational 4 y ); 

putit( 13#15# y 4 force strengths. *' >#- 

putit< 13# 13#'* 
aotoxy< 13# 17. >; 

writeln< /J w Ps a result of the war ' #naroe )#p*Jtit< £5#l?# y 4'># 

p»jtit( 13# 13#'4 has had next '-*ear"s budeet slashed by + y ># 

putit< 13#19# / * m>?0. 4'>; 

eutitt2S#21#'<Press RETURN to Continup>' •: 
reaa<dJ 


end; <’war> 


PROCEDURE UMPL060; 
oeein 

ciearscreen# 

put it* 30#5#' >; 

PUtit<30#o#'444 UMPIRE 4**'>; 

Put 1 V, 30 # 7 , ' 4 « ***44444 * •< ■ * > » « >■ * v ^ y > ; 

putit<13#15# y 0o you wish to terminate the same <V or N)^')# 
?otovy< R4,i5 
react done ,* 

end; £umplnoo> 


PROCEDURE MMRNOTE; 


;n : inteeer# 


be<? i n 

eutitt 15#15#' 


i j j 


c h ar; 


ni : = TOO - trune 1 ' dif*‘? 
sotoxyv 17 # 15 >; 

write1nt'The probability of war is estimated to be 
putit<22#17#'0o you wish a war to ensue * V or N'?' 
?otoxv< 80 #17 >; 
read< j j.j >; 

if tjjj='y' > or then 

diffs=« 

else diff:=l00 


m# ' ># 
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ena; 


(. i')arnoti? > 


PROCEDURE PUTPLLj 

PROCEDURE PUTGNE; 

Mar 

temPlfxle : file of temp; 
oeein 

rewr:te< 1 f 1 1 e *' TEMPO• tempol. data / > ; 

with templfile^ do 
oes»in 

tv ear r »*e ar; t-r ed 1 p+* t: =re11 ef t; t o l u 1 eft.: =o 1 u 1 ef t 
traeseent: =raespent; tbaespent: =oas«ppnt; 
tr i spent: =r i spent.; t b i sppnt: =Di spent; 
trrdseent: =mdspent ;tbrd«pent: =ordspent; 
tnumofsvstems:snumofsystems; 
troas *roa;trob: =rob itrda: =rda; trdb: =rdb ; 
tboa: =doa;tbob: =bob;tbda: =noa;tbdb: =bdb; 
tro:=ro;trb:-rditrrdos =rrdo;trrdd:=rrda; 
tf ros =fro; tf rd: =f rd; tf mdo: =frrdo; tfrrdd: =frrdd 
tbo:=oo;tbd:=od;tbrdo:=brdo:tbr dd:=brdd; 
tf bo: =fbo;tfbd: -fbd;t.fbrdo: *fhrdo ;tf brod: -fbrdd 
tuarcont: =»uarcont itprtr: =prtr ; 
tel avers:* p! avers;tredbudeet; =redbudoet; 
tb1uoudeet:=d1ubudset 
end; 

eut< tempIfile>; 
c lose< temrlf:le#lock> 
end; C putone > 

PROCEDURE PUTTWO; 

Mar 

temp2file : file of *vsterns; 
bee in 

re*»»r i te< templf x 1 * >' TEMPO: tempo^. data' '•; 
temrEfi1e^ := rs; 
p«ju temp2f i le 
temeSfile-* :=* bs; 
p«jU templf i le 
c lose*:. teme2f i le# lock ) 
end; <lPf.»tti,to> 


bee in 
eutone; 
puttino 

end; Cental]> 


opfin 

a := random mod t kt i; 
name := elavers Cl]; 
smaller := ^ed; 
lareer := blue; 
if blue<red then 
beein 

name : = => 1 avers C 2 ]; 
sma11er := blue; 
larser := 
end; 

sm:=smaller;la:areer; 
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diff : = 8»iW"sro) 01U la; 
al: 

UmeloeO* 

if <done*'y'> or •: done ss>,J ' '> then 
beam 

clearscreen; 

13*10); 

Hir 1 te 1 nt y 0o you tm«h to resume pt av rhis point' 

SOtOXy< 19,11 ' 1 ; 

write'. ' at a later time •: V or hO: 't; 

read*' mn ,* s 

if \ron='V' > or ' nun*'<-»'') then putall; 
ma 1 nf l ae:=true; 
ex 1 t< vearend ) 
end 
else 

ioa 1 nf 1 ae: =fa 1« e; 

if (i uar c ont= 'h' > or ( w arc on t *' V •' > then 
warnote; 

if ei;diff then u»ar 

end; maybe* ar> 


beam 
iu inner; 
maybewar 

end; Cvearerd> 
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/- f *uiT cm i rtt.iTMft cconpvtTcn coi*r-cm 'occ -cc ^.uoti m pv*n TM^roTcn tm tuc mQTM 
PROGRAM PS BATCH 2 USING THE COMPILER 'INCLUDE' OPTION# DUE TO FILE 
SIZE CONSTRAINTS.> 


SEGMENT PROCEDURE UMPIRE; 

{Allow* same umpire to alter# delete ^r add systems to same plav; 
Also permit* umpire to alter plaver budset fieures and probability 
of war.} 

PROCEDURE WRITESVS( J : integer >; 


PROCEDURE PARTS# 


PROCEDURE PARTI; 


PROCEDURE PARTIAUX; 
besin 

writeln<' D 

yrotRaO); 

writelrrt ' E 

yrlRaucost>; 

writelrK ' F 

yrSRaOcost ># 

writeln<" G 

yr3RaOcost># 

wntelrrt' H 

... ' #rsCJ1.yrauai1 > 
end; 


Vrs P&D compl^red at same start. / #r*Cj]. 


c ir?t P*D ypar cost;.-5 '#psCj]. 

Second P^O year co^t:.£'#r*Cj]. 

T Hxrd P?P *-»par cost.:.......... #rsCj ]. 


Earliest, ^ear available < after R and D 
( part.iau>f> 


besin 

writeln< ' 
writeln< ' 
if ' r*C j ]. sort 
writeln^' 

1 f vrs C j ].sort 
writein<' 
if *rstjl.sort 
writein<' 
if <r*Cj].sort 
writeln<' 
writeln<' 

.' #r*Cj].yrRaGstarts># 
®artlaux 
end; 


SVSTEM '#J >; 

A Name:.' #rsf j 1 .name);mri teln; 

'CiA''> or ^r*Cj].*crt - 'oa' ) then 

8 Ty»e:.Qffmsi'•<? System Weapon Type A' 

'0B y ‘> or ( rsC.»1. sort - y oo' ; then 

3 Type?.Offensive System Weapon Type S' - 1 # 

'DA' > or < rsC j] . sort. = 7 da' > then 

8 Type:.Defensive System Weapon Type A'); 

'08'> or < r*CJ].sort s 'Ob'; then 

3 Type:.Oefpnsrve System Weapon Type S'); 

C Fir*t year ®AD C3n start:. 


{parti> 


PROCEDURE PARTS; 
oesm 

writeim ' I 

.' #r-sCj]. inventory '# 

writeim ' J 

S' #rsC j].AO cost n 

writeim ' K 

S' ,rsCJl.uPcost>; 

writelm ' L 

." #rsCu1.uti1* >i 

writeln< ' M 

. ' #rsC«j 1. pur i irtit );writeln 
eno; 


Unit* in inventory ''at same a tart;: 

Acquisition cost, - per unit ':. 

Oppratms cost ( »«r unit ;:. 

Ualue in utils ’'per unit;:. 

Maximum annual Purchase rate:. 

{part2^ 


Deem 
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Oarts} 


parti ;part2 
end; 

Deem 

clearnerpen; 
parts 

ena; f. writ e^ys > 

PROCEDURE PRINTSVS; 
uar 

r : char;f : integer; 

PROCEDURE PQRTli 


PROCEDURE PQ RT1PUX; 
oeem 



writeln< z> ' 

Vrs ft&D comelet.Pd sc 

-?am» start,...' ^r-sCt"] .y 

rofRaO>; 




rIRaOcost>; 

wr i tp 1 n< z*' 

Pirst Rv,0 ’-•par cost:. 



"iriteln* z#' 

^prnrtd PtO •gov* ro«.t: 


r^RaOcost); 

Third RtH rrys. t. • . 

. S' . y 

•urt tel n< z »' 

rJ.RaOcost.); 




wr 1 1 e 1 n< z*' 

Earlipst year v.'.ailaole 

< after R ana 0):. 


..',rsCf].yrauai1) 

end ; < p srt t a»j r 


beam 

writeln*z>' 
writeln< z#' 
if <r-?Cf1.*ort. 

write In*' z*' 
if CrsCfl.sort 
writeln< z»' 
if < r*Cf 1. sort 
write l n< z#' 
if < r«Cf].sort. 

writeln< z*' 
writeln<z>' 

'#rstf1. yrRaQstarts >; 

eart!aux 
-*na; 


bVSTEH ' »f >; 

Mawe:.....' ,r~sCf 1 .narnp ); 
y CQ' ^ ."»r ' r<rf)„ *nrt - 'oa'' then 

Tye<*:. OffensiSystem Weapon Type 

'OR' ^ or < re r O . «or* - 'oh') then 

Type:.Offensive Weapon Type 

'HQ' •» or <r*Cf].*ort - 'da' ) then 

Type?.... . Defers8vstei* Weapon Type 
'DR'') or *'rsCfl.-ort = 'db' ) then 

Ty*<»:.3*f ons i i.,.* System Weapon Type 


&' ;*; 
3' ii 
A' >; 
3' >; 


Pirst year R&O can start-: 


/ p art 1> 


PROCEDURE PWRT2; 
oesun 

writelmr/' Unit* in inventory < at ?ame start): 


* rs C f ]. ; nuentery :•; 

'•»ritelm z#' ^c^f ii ? l * ’ on o n< t »' =>®r unit):......*5 

' #rsCf1. Ww.rost- >; 

writeln< z#' Geer at me co«t { »er unit )s .-5 

#rsCfI.OPcost); 

writeln( z»' l, alue m nt.i]< < per unit):. 

'#rstfl.uti3 s >; 


writelntz*' Maximum annual Purchase rate: 

' *rsCf l.purl lout );wnteln; 

i f rsC f1.aeiete = 39 then 


be** in 

»*«r 1 r e 1 n< z *' '>» 
wr i f.pln* z» ' 
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writeln< z 


-VsTEH MW$ BEEN DELETED PROM THE GAME 


"*r 1 te 1 m z*' ■*>»» n f.i 

end; 

wr? teln< z#' ' ^jwrirelm z/ 7 ) smrit *1 n< z #' ' > 
end; <part2) 

ti^in 

clearecreen; 

wjuv, 15/10/ If* you desire a hard cop*-» of all to De used' .); 

putit<! 15# 11 #' in the play, enter ''' ' P 7 ' for printout# otherwise' )# 

putit< 15# 12# 7 press RETURN to *nt back to menu. Be advised that')# 

putit<15#13#' pt intout uu 11 take 5 to JA mins. and may not be' m 

putiu 15#14,' intercepted. 7 ># 

read's r >; 

if {r = 'p' • or < r = '> then 

for f := 1 to numofsystems do 
Deem 

parti;part2 
end 

end# <>rintsys> 


PROCEDURE PRrCHQICE# 
beein 

•: 1 ear screen# 

putit< 29#1 # 7 : *■»*■»»»*» *» » > ****»*»«■»» *» ♦ ■ »** ' 
putit<28#2# 7 *** UMPIRE INSTRUCTIONS **-*''); 
putit< 29 # 3 # 7 » * * * * ♦ * • » * * »» » »■*» >» ■' 

putitc31#7# 7 e Printer Status 

put. it( 10# 10#'Enter the number corresponding to current printer status :' 

putitC14,13» 7 1..-RS232 UNIT ^tt^chPd and confieured to receiue data' >; 
putitc 14.15* '2... PPPLE SIl.ENTVPE UNIT attached'); 

putit<14#1?.'3,..Printer either not connected or not of option type' ># 
30toxy< 7y#l0); 
read<prtr j; 
case prtr of 

"1' : rewrite < z# 7 .RS232'); 

'2' : rewrite < 2 #'.SILENTVPE 7 
end 

end # !* or t r no i c e > 

PROCEDURE SROMSE; 
uar 

i : inteeer;choioe : charjcher^fla-® : onnlean; 


PROCEDURE DELETE; 
uar 

j : mr.pser jauitf las : boo lean so : char; 
bee l n 

tor j := 1 to numofsystems do 
besi n 

puitflae := false; 
repeat 

n»r i tesvsi j ; 

putitc 5# 17# ■ Ent^n one of th** ff n»_L OWING options:'); 

put:t<5# 19# 7 Q...Oelet p displayed -ystem anc %du=-nce pase' >; 
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put it'% 5 • 20 j* y 8 ... .Qdu*nre p ese »•»rtho»>t de 1 etein? dle p 1 aved svst etn 

.•' i 

put 11 ( 5#21 *'C...Quit * 1 el ot ei ns'’ '; 

read<d>; 

case d of 

'A'•'a* : beam 

r« f.j ] , delete ; - 

rsC.j3.*rauai 1 := 393? 

: = true 

and; 

y B'#'b' ! auitflap :“ true? 

'C'‘ z'c" : exitC delete ">? 
otherwise- help 
end 

until auitflag 
end 

ena; (delete} 

PROCEDURE CHECKRPOc j s integer); 
var 

k, should : integer;* : char; 
begin 
k ; = 3; 

if rsCj].vrlRaOcogr. > A then k : = 1; 

if rsCj ]. yrSRaGcost > 0 then k :- 2 ; 

if rsC j 1 .yr^PaOco-st > 3 thpn k •= "; 

if rsCj].yrRaOstarvs > 3 then 
hep in 

should : = r<CJ1.*rRaO«tarts 4 - k ; 

if not < chouId = rsC j ]. yrauat 1 ^ and 'rsCj 3 .delete = 3> then 
Deem 

p»jtit< l ,17,' 

' >; 

put i tc t, 13»'■ 

j ^ 

1 * 

put i t< 1 , 19»'* 

' >; 

put iff 1 # 20 *'' 

' ); 

putl tX U21 j ' 

'; 

?oto*v< 5* 17> ? 

writelrK'Th®r* sn mrnr><ictanrv 7 n vour ?X.O Parameters. Vou 

r earliest" •; 

?otov^' 5, 1 A >; 

'•triteIn< "*-*r auail ah l* ires not. alio*" for '>'<»' yrs of R&O beei 
nmng in vr ^msCJ3.^rOgGstarts. . >: 

»ut i r x 17 , 21 Pr®«RETl !PN to *or^ect parameters. *; 

r*acK p 1 ; 

,-nerw- **l 3 -q ; = f =,) ^ 

end 

end 

end; , Vhert'PaO> 

PROCEDURE ALTER; 
uar 

j : inteeer?d : -:nar; pm irfl: nonle-n; 


PROCEDURE PARAMETER; 
'.’.ar 
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which : cMr;mjfn 


1 nte«r; rare : =.r r \ np ? 


PROCEDURE HOV6E3; 

Deem 

case which of 

: beem 

potox*<5 j18 >; 

aren?*=.i r.\ or> c rv?t per unit-s s'); 

read 1 n< nuro >» 

r'*? C j 1. aaco<t * = ~u*n 

end; 

y K','k' j be<*in 

eotox*<5#l8>; 

write*' 'Enter rvpo^at.m'p «:o<t per unit; S' ); 
readlnC rum>; 
reCjD.OecO'rt : = nfi*n; 

ret j 3.opro^tttl := r<C j 3.cecost^r^C j ]. inventory 

*»r>d; 

/ L y * y l y : beam 

aotnw* 5 * 13 >; 

>ttr l t*< ' Enter ut 1 1 value per un it; ' >; 
readln< n»jm ); 
r^CJ3,utils := nun; 

rsC jl.ut-J Isttl :- raCJJ.uti ls*reC«j]. inventor* 


era; 

'M* ,'n' : beem 

90tox*<5,18}; 

write< 'Entpr Maximum annual Purchase rate: ' >; 
read1 n< nun >; 
rsC j 1. p* *rl imi t : = nun 
end; 

otherMine help 


eno 

end; 


f i»> avD® E } 


PROCEDURE MGY9E2; 

Deem 

case »<»nich of 
cy : beem 

eotox*<, 5- 18); 

write* Enter 2nd R&D ■-•ear cost.: s' 
readln< nuro >; 
rst J 1 - ^r-’PaOcost : = nun 
pnd; 

'O'#' p' ; bp«in 

sotox*< 5 j 18 ;•; 

' Ert pr ^r»d 5;tQ '-<e 3 r r n«T.; s' ); 
read 1 n< num ’); 
re. tj ]. «r ER aGc os t : = num 
end; 

y H','h' ; Deem 

sotox'r* 5*18 >; 

utrite*''Rnter vear eyet.em is first available for oeer 

at i on: >; 

reading nuro); 

if num = 1 then reC.j ]. status : = y 
e I =.p r*s C j 1. at ar.u«. : - : > 
rs C j 1 •vr ava 1 1 :- num 
end; 

' I * i" : Deem 
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POtox'-K 5> IS 

write< "Enter units in inventory at start: ■; 

re.adln( n» im >; 

rs C J 3. 1 nuentorsi : = num ; 

rsC j 1 .nprost.tt x ;= r^f j].oecost*rsCj]. inventory; 
rs C J 3, u t i 1 stt l : = rs. C.»]. ut 1 1 s*rs C j ]. i nventory 
end; 

otherwise mayoeS 
end 

end ; <* maybe2 > 

PROCEDURE MPVBE1> 

PROCEDURE MPV8E4; 
uar 

pick : char; 
besin 

?otow< 5* 18 >; 

wntelr* "Select system type: 1 ; 


writeln* " 

1 . 

HP. . 

. Of-i • .*e 

Weapon 

Type 

Q" 

>p 

writelnC " 

2. 

OP., 

.Oef ensiue 

We-aeon 

Type 

P *- 

)i 

writelrK 7 

7 . 

OB.. 

.Of^ensi^e 

We aprn 

Type 

&' 

>; 

writeln< " 

4. 

. OB.. 

. Defers v-'e 

Weapon 

Type 

3' 

); 


reacK Pick >; 
putltv 5pl'Sp-' 

putit< 5pV3p' 

eutitt5#28•' 

put. ir.< 5.21 

put:tv 5 >22 *' 

case eicx of 


•' 1 - 

: rsCJl.sort 

: = 

/ 0P / ; 

/ 2' 

: reCj].?nr* 

• =r 

' r jQ' : 

'i' 

: rsCjl.sort 

J = 

"OR' ; 

'A' 

: rsCjl.sort 

• = 

'OB' : 


otherwise nelp 
end 

end; <osyhe4 > 


win 

case which of 

W'.'a" : oesin 

•sn f o vy < S . t ft >; 

'"rite< "Ent er nem system name: ; 

r* ad l n' name 1 ; 
rsC j 3 .name := name 
end; 

" B " *" b : maybe4; 

C'^c" : be^in 

sotoxy* 5 >18>; 

write*'Enter year R&0 r.o start (if necessary> 

re^n»n< num 

rsC j]. yrRsOstarts := rum 
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* 11 * 0 >: 


0 ' 


d' 


E 


otherwise 

end 

end; 


*nn; 

Deem 

PQtOX'-K 5 • i ft *■; 

'FntPr* --iP.s.r«. R? 0 comp 1 pf.pfj 9?, earne 

r^adln'' nun •; 

rsCJ].*rofRaO : = nun 
end; 
bee in 

pnt.nvM< S , t ft 1 i 

write* 'Enter l*t R &0 vear cost: s' >; 

^■5d1 n< r>um >: 

rs C j 3. *r 1 RaOc ost := num 
end; 
ioavbe 2 

T|rt**b*»l ? 


start 


», non in 


be* in 

P«Jt i t< 1.1?.' 

S i 

eut lU 1 .18. y 

' M 

putit<1.19. y 

•‘ i 

PUtlU 1 

y } ; 

putit<1.21 *' 

' ) i 

2 »ot.ox*< 5.I?>#wri te< y ftelpct * parameter? ' >* 
read< iitmch >j 
"ia*Oe 1 

end; f &i*y 


hooi n 

for j := 1 to ir do 
Deem 

checkf 1*9 *'*lse; 

repeat- 

i»ir 1 t eeyW j >; 

if r*sCo3.delete = 99 then 
Deem 

pi jr. 1 r.c 1 3 . 17 • y * * * * -*-■*’•*■ »■*■■<■ 4 * < ■■» » * * * ■t » - r * . *■" > 

put 11 ^ 13. IS. ftVftTEH hHft BEEN DELETED FftOH THE 8 PHE ■ ' - ■ *' ) 
Pt.it 11< 13.19.' * * * * * * ^ * *^- *****■*»■ * ■ • ** * ^ * * * » « s . * .* ■ * ■»*** «■ * •* ' ***•* ** ' ) 

theckflas ! — tr* >>?; 

pMt.ir.r iT.T'i. »>*,»«« c ETURN rn advance eaee 

^e*d< d -■ 
pro 
pipe 
Oeein 

wit.;f,< 5.17. ‘Fnfpr nno of me = 0LLOWING options :' >; 

Put 1 1^ 1 . 19.'2.HI t p«»>pt <?r» / '; 

putitt 1ft>20.■’R*.,Pdvmce ^eee to npvr. default s*stew' >; 
put 1 tf tft .21. C. .. Du 11 brnmc.\•' >; 
read*. 0 :»1 
case d of 
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•'& y , y a y : parameter; 

'B'.'b' : Oesin 

rftor U f 1 ap : ~ true * 

checkRaG<! J > 
end; 

'C'* y c' : be^in 

checkf 1 a*? : = r rt'e; 
checkRaQC j>; 

i f ■: h*»c k ** 1 a'? = t rue then ex 1 1< a 11 er ) 
end; 

otherwise nelp 
end 
end 

until checkflas 
end 

end; -C a 1 ter*:* 

PROCEDURE WOO; 
uar 

j ,k,nun : inteeer?name ! ?.tri^?;d : char; 


PROCEDURE PwRTl; 

PROCEDURE PTLL1; 
oesin 

rs C. j ]. status ? « 0 ; 
sotoxvv1,5); 
tun telm' y 
.... ,rsC j]. yrRaOStarts >; 

rs C J 3. yrofRaO : - num; 
sotoxy< 1,6); 
writeInf y 

. yrof RaO •* 

end; 


Fir-ar. u<»ar R&O can start:. 


Vr* R?-0 completed at ?ame start:, 

(fnm 




PROCEDURE PGRTiflliX; 

’>ar 

Pick : char; 
oesin 

put 1t< 5,171 y 
sotoxv< 5,1?^; 

writelnC'SELECT 3VSTEM TVPE: 

writPlrK' l. r »P.. . Of f up Wo^on Type w y ); 

<uriteln< y 2. OP.• .Qpfensiue Weapon Type Q y ); 

'.uritein< y 7. op*. , Of**en« 1 **e weapon Type B*' ); 

wnfeln< y 4. 08.. .Deferslup Weapon Typo B y ;; 

pi cm; 

put 11< 5,17, y 


®um t( 5113 , y 
=*jti t( 5,13,' 
pntit<5,20, y 
put :u 5,21*' 


case ®ick if 
" 1 : oesin 


. y ,rsCj] 




> 

> 
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r-? C J 1 . •= ort : = ' 0 ° *' : 
eotoxvv1^4 ); 

mnwln( y Imp** .Of fervs: ue Weapon Type P 

pnd; 

* 2 ' : beein 

r*.[J*).-ont : 

aotoxy<1#4 >J 
mritelrK y 

*nd j 

o' : bee in 

r<u\il.*o~t : 

•?otoxy< t #4'); 
mri t*ln< ' 

pnd; 

''4 y : bee in 

r<Cj].?ort : 
eotoxs* 1 *4 >; 

writelrK ' 
erd; 

otherwise help 
end 

end; T p art t s«jx > 

beein 

?OtOXM< 1,1 ); 

iuriteln<NfW S'VsTEM ' *w '*i 
put11< 5»17 #' 


= 'OB'; 

Tmpo; ..... Oefen-siue Weapon Type 3 


=■ 'QQ'; 

Tmpo; .Offen^iue Weapon Type 3 


= y QP y ; 

Typ*:.Defensive Weapon Type P 


?otoxy< 10#17 >; 

writer Enter new system name: 1 ; 

read Inc n ame 

rs [ j 3. name : • name; 

=*otoxyc i #3 ); 

"»riteln< ' Nam*:.' #r*C..* 1. name •; 

partiaux; 

?otoxvK 10#l?^; 

write* 'Enter year R*D i* to ar* ' if no P&0# enter 0' .>; 
read 1 nc nun> >; 

rs L j ] . yrKaOstarts ? = rum; 
if num = 0 then f i 111 
else 
bee in 

?otoxyi 1 # 5 ; 

i.irirelnv ' -**ar B&O c?n start;... 

. rsCo ]. yrRaOstart a »; 

eUtltC ^, 1 ? 

' >i 

?otoxyc 1 y # 1 ?); 

writer ' Enter yrs RtQ rnmpl***d at same start v normally y>: ' 
readlnc rum •; 

it num = y then rsC i],status :- 1 
else rsCj ]. status : - 2s 
r -5 L\| 1. yrnt RaO :" rum; 
aotoxyv US j; 

writein* * Vr* completed at ?ame start:... »r 
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s C ..i ]. Mrot P *0 ' 

end 

end; ®’>•*+ \ ? 

PROCEDURE PPRT2; 

PROCEDURE PILL2; 
hesun 

rs [ ..i ]. 1 R aOc ost : 3 nijm • 
aotox*< 1,7); 

"•riteln^' c ir*t ft^Q s»«»ar rest.:,.5'*rsCj3 

.MrlftaOcost); 

rs Cj 3. m2Ra0c ost ? = rum; 
sotox*^ 1 #3 >; 

«*iriteln< ' Second R*<0 vear cost:.S',rsCj] 

.yr2Ra0cost); 

r?L\» 3. *=*r3Ra0cost : = nuws 
sotoxs*. t *3 >; 

'»«riteln<' Third Px,D s»ear cost:...S',rsCJ] 

.*r3Ra0cost> 

end; ^U12) 

Desin 

if rsCjl.vrRaGstarts = 0 then **i 112 
else 
ftesin 

putit<5#i?#' 

y ;; 

sotdxsK10#17 >; 

write< y Enter 1st P&O vear cost: S' 
reading rum>s 

rsCJl.^rIRaOcost := nur*; 

?otoxM< 1,7*'*; 

>»irit eln< y Fir«r P*n M*»ar cost:. 

' sCj]. wrlfiaOcost 

o»jt 11< 5 #17» y 

•*; 

?otoxs»< 10#17); 

inriteC 'Enter 2nd R&O vear cost: S' 
readlrK rum ); 

rsCj].yr2Ra0cost : = nuio; 
aotoxy< 1 #3); 

"«riteln< ' t or met R:;.Q year cost: 

s C j]. xr 2Ra0c ost ); 

putit< 5# 17 # y 

.); 

?otoxy< 10.17^; 

i»rite*s ' Enter 3rd R&Q year cost: S' •; 
reading mjm >; 

rs C j 1.yrTRaOcost :- nu>*; 
aotoxyv1,3 >; 

'‘iritelnC y Third Qm 0 year cost:. 

sC-j ]. yrERaOcost) 

end 

me; '»=>**? 2) 

PROCEDURE PCRTE; 
oeein 

put i t< 5 # i 7 # y 
?otoxy< 10.17); 


'S' ,r 


.5' ,r 


,5' ,r 
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mrite<'Enter year system ?? first available for operation: ' >; 
read 1 n< num >; 
r ■s C j 3. =*rava 1 1 : = rum; 

SOtOXy< l #10 >i 

iuntein< y Earliest, vfar available < after R and 0):. 

..'#rsCj].vrauai1>; 

putit< 5#1?#' 

) i 

eotoxyc 10# 1?‘); 

urite<'Enter unit? in inventors at start: ')# 

readln< rum-); 

nsCu3.inventory : = rum; 

sotoxyv1#11)# 

writeln* ' Lin its in inventory < at same start'):.. 

.. ' #rsC J ]. inventory >; 

p*jtit<5#17#' 

/ ■ . 

/ # 

?ot oxy< tfl#l7’>; 

"irita<'Enter acquisition erst. p<*r unit: s';; 

read1n(rum); 

rsCj 3.accost. : = rum; 

aotoxy< 1 # 12 ># 

writeInc' inquisition cost < p®r unit;:.. 

.S'#rsCj 3.wucost> 

end; Cpart3> 

PROCEDURE P*RT4# 
bes in 

putit<5.17#" 

' ' >; 

sotoxvc 10# 17*); 

writeC'Enter operating cost »er unit: S''; 
r*ad1n< nun;; 

.rsCj 3 .opcost. := rum; 
aotoxyc 1,13 >5 

writeirK ' Hoorat-ins co<t < *>* 1 * unit >:... 

. S' #rsCu ]. GPcost ’): 

eutitcS#!?#' 

" ># 

SOtoxyC 10# 17); 

writec 'Enter util value per ijnit: y •*; 
readlnc rum ;; 
rsCJl.utils num; 

?OtOXV< 1#14 ) # 

>«iriteln<' 11 a 1 up in "tils < p«r unit':.... 

#rsCJl.utiis># 

eutitc5#l7#' 

■ *> ; 

sotovvc!O # 17 ); 

write' 'Enter maximum annual purchase r^tes ' >; 
read Inc num 

rs C j 3.purlimit nuro; 

sotoxsc1#15); 

writeln<' Maximum annual purchase rate:. 

.. *rsCvi ]. put limit )#iuritPln 

end# >*p^r».4> 

beam 

for j :- 18 to 30 do 
* resin 
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checkflag : = false - 
repeat 

k :* j - 17; 
c lear^cre*?n; 
parti; 

Part2; 

p-artS > 
part4; 

checkf'lag : = trues 
checkRaG< J ) 
until cneckflae; 

nuwof systems : = ntwofe-^etem* +► 1 ;r<C j ].penalty : = 9; 
rsCJl.delete :» 9;r*CJl,oPcn<tt,t. 1 ; = r^C.i .1. opcost*rsCJ 3. inventors; 
rsCj].utilsttl : 3 r«.C.i3.Mtilg*r<Cj3. inventory; 
putit< 10# \7»' Oo you wish to create another system*? „ 

putit<t9# 18* y <V or N> 

read< d>; 

if •; d - 'N') or f d = 'n' 1 ) then exit< add) 
end 

end; <add> 


PROCEDURE BUDGET; 
van 

u#j*k : integer; budflag : oool ean; a : char; 


PROCEDURE CHONGE; 

Deem 

put 1 1< 1 * 16 *' — / ); 

eutit< t #17,'* '>» 

' ); 

eotoxy<19 *18 >; 

"*nte< 'Enter year for change < Th*>n press RETURN): ' ); 
readln< 1 1 > * 

if tii>29> or ( 11 < 1 ) then 
begin 

c1earscreen; 

put i t< 24 # 19 ,'VEQP XUST TW(E RQNGE <1-29 >'); 

putit< 27# 11 Progs RETURN to Continued); 
reacK a ); 
exit< change > 
end; 

eotoxy< £,17); 

write* y Enter new budget, without decimals < Then press RETURN)? ' ); 
readlntj); 

^edbudoet Ci13 :* J 
end; C change 3 


Deem 

Dudflae :» false; 


repeat 

clearscreen; 

put 1 1< 31 # 1,BUDGET INFORMATION'>; 
putit<20,3, y V6RR £MOUNT< 
for n := 1 to 19 oo 
Deem 

j := i: x 19; 
k := li * *i; 

gotoxy<23,k >; wr i te< 11 }; 


VEfiR 


QNOUNT* S) / ); 
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aotoxvc 32,k ); Mr* te< reobudeetC 11 ] >; 

?OtOXy< 45 , k } i wr 1 te<. j >; 

?otoxy< 54, x ; ».»r i te< redbudaet C j 3 > ; 
end; 

putitt 28,18, XEnt.er "O'' to wake a chanse" ); 
PUtit<38, 17Enter "0" to auit.v >; 
eotoxy* 38 , 18 ); 
read<s >; 

-a?*? a of 

'Q', *e y : budflas s* true; 

'C y ,'C y : chanee; 
othermia* help 
era 

until budfla*; 
oluDud^et := redbudoet 
end; < budget > 


PROCEDURE ELECT; 
beam 

cleerscrpen; 

putit( 14.2# y prociPRTLTTV fiF MQP CQMPUTQTION OPTION ' 

eutit(14,5# y The -annual possibility of a war is determined ' ); 

putit< 14,8# 'prooebi 1 ist}callv by 9 random draw whose threshold ' ); 
putit<14,7, y ualue is based on the wasmtude of disparity between' 1 )* 
putit<14,3, y plavers y ' total adjusted utility figures- y >; 

PUtitC14,10, y The umpire wav to override the aboue ' >; 

eutit<14,l1,'comrutation method and oe pueried annually as to ' >i 
p*jtit< 14, 12* 'whether the war event i« t.n take place. y >; 

p»Jtit< 14,13,' OVERRIDE <V nr N* y >; 

aotoxv< 43, 16 >;re ad< marcont ^ 


end; <* elect > 

beam 

for 1 :- l to lOR do 
beam 

clear<creen; 

eutit<3»Ti,3, y * Systems Reuiew •; 

putit( 7,7, y 1.,.Brr»fn«e / Q1 ter ,-jpfault weapon system bucket paramet ers' 

put 1 1< ?, 8 , y 2. .. hdd new swet »ms' ); 
putitv7,11,'3...Oelete a system' ?; 

p«jtit<7,l3* / 4.,.8row«e/01ter annual budgets for all same years' >; 
eutit( 7,15, "5... Elpct to control r hp annual probability of war'?; 
eutit< 7.17,'8.. .Obtain printout of ^11 same systems and parameters y 1 

put 1 v; 7.13,' 7. -. 0u 1 1 Ump t r« Sec t. j. on and bee 1 n *ame p l ay' >; 
readC choice); 
case choice of 
y 1' : alter; 

' 2 ' : add; 

3' : delete; 

4' ; o«.»d ?pt; 

5' : elect; 

6 y : prmt-eys; 

7*' : oeem 

ds : = rs; 
ex 1 tc ump 1 re 
*nd; 

otherwise help 
end 
end 

end; tbrow«e> 


Deem 
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prtcnoice; 

browse 

end* Cumn re> 


PROCEDURE OPSTPTUS < person 
forward; 

PROCEDURE HUST0TU3 < person 
f'ontiardi 


str1 re >; 

<oretatus > 

strins ># 

C 3tij« ^ 


SEGMENT PROCEDURE BUV (person .* string; list : chsr); 

i Weapon procurement routine; ernelevs checks to ensure budget. balance 
is not exceeded* and that purchase rates are not exceeded. Also allows 
for scraps ms of units* and scsuisition e^*>enditure updating.> 

uar 

?otit : boolean; 1 # 11 * Pick : integer; choice : str ins* 
answer : char; 

PROCEDURE 8UVM6NU; 

f orward; (buymenu > 

PROCEDURE 6UVK0HMUCH; 
uar 

mi* ba*many* left# deficit : mteger;budg*t s arrayC1..203 of integer; 
d* e : char*aespent* isp«*nt# raseent* expense : integer; 

PROCEDURE CHECK1; 
begin 

?otoxy< IS*!#); 

writeln( 'Purchasing y *man^* / unite s; of ' *sysCi 1 ] .name*' will excee 
d the annual ' >; 

wrxtelnt' eumhase rate for this system. 

/ # 

?otoxy( Id* 13‘>juirite* 'The annual purchase rate : ' 

writeim svsCi 1 3.pur 1 lmit >;«nr.ovM< ]R,t4 

writer y The number remaining fnr purchase this year : '!>; 

<»<riteln< sysC l i 3. unitbuy >; 
eotoxyt 18*IS >; 

wr:teln< 'Do you desiro to purchase *ewer than '»many* y units?')* 
PUtitC 18*17# ' <V nr M> " 

read( d >; 

if (d - ) nr <d - 'n' > then 

Deem 

clearscreen; 
exit< buymenu > 
end 
else 
Deem 

putst(18#IS *'Reenter the number of system units desired ' 

putit<18#17#' (Follow with RETURN*> 

readlm many ); 

if many > sysCli3.unitbuy then 
begin 

putitt 18.IP.' vr»»j"®E NOT COOPERATING* 1 »' >; 

putit< 18>20#' <Press RETURN to ex:t>' M 

^eaa< d >; 
clearscreen# 
ex 1 tt b> «ymenu.) 
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end 


end 

end; 


•** r hp^k \ y 


;:ThE FOLLOWING SEGMENTED PROCEDURES APE COMPILED AMO INSERTED IN THE MAIN 
PROGRAM PS BPTCH 2P USING THE COMPILER 'INCLUDE' OPTION, DUE TO FILE 
SIZE CONSTRAINTS.> 


PROCEDURE CH£CK2<much : integer); 
war 

t#k : integer; 

PROCEDURE WORDS; 

begin 

?otoxy<5#l8>; 

writeln<Mf you continue "ath this purchase and do not scrap arry o 
then systems- ); 

gotoxy<5.i9); 

writeln< '' to lowmr ynnr operating cost*) you t»ri 11 have an annual d 
eficit. Tin ice'' >s 

?otoxy<5.20>; 

•uritelr*'this amount will then he deducted from next year''s dudse 

t.' >; 

?otoxy< 15.21 ); 

write IrK 'Do you wi«n to coot,inue with this acquisition?'); 
sotoxy<2^.22); 

writelrK ' <V nr NV* *•; 

re add p); 

it te * 'N' ) or' e = 'n' 1 then 
begin 

c1earscreen; 
exltd buymenu ) 
end 
else 

c 1earscreen 

end; 0»iordsT 

deem 

c1earscreen; 

pu111<36*1.'WPRN TNG' : 

putit<15.2. Vqu haue nnr enough Mind? ^©maining in the year to make' 

>; 

*ut 1 1< 15-3.' the desired acquisition.' >; 

eotoxyt 17.5); 

writ eln< - Budget......... ,S' .budgetCyear] > 

=»otox ,j <- 17,?*’? 

wr i te 1 n< ' Amount sp^ct ®**eu i ous l y for i s 11 1 cns-asspent.); 

?otoxy< 17.3>; 

wr i te i n< ' Amount spent, for : nt-e 11 1 «enc e......s'. i spent ); 

aotoxyc1 7.3 >; 

writeln<'Amount spent for R and 0.......•••S'.rdseent ); 

r, : = 0; 

tor k : = 1 to numof**y<t ems <jn 
if sysCk].delete - 3 then 
t .* = t- sysCk ].OBCOSt.r.r.l ; 

aotoxy*. 17.U3); 
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wri t-eln< 'Pmount to operate all current' "s 


eotoxvv 17,11 > i 

»«»r 1 t e 1 n< ' t nuentor: e«.. S '- t > ; 

eoto yy( 17 -12 ); 

uir i te 1 n<. ' Pmount r*mai n i np..... s '- i eft); 

gotoxy< 17-13); 


n»rlte 1 n< 'Pcaumiti or and op^rat i np cost a ' ); 

potox.v< 17,14); 

(j»r 1 te 1 n»: ' of -y$t eu art, 1 1. v •= e 1 ec ted.-?' - roue n ) ; 

eotoxy* 17 - XS '•; 
deficit := left - much; 


wr i tel rK ' Deficit..... S' -deficit ); 

iuorr*9 

end; Crneck23 


PROCEDURE SUV IT; 

oar 

Dacj<.roin : intewrjde) : char; 

Deain 

if roanvKy then 
begin 

clearecre»n- 

rutit<24.1*.'YOU PON'' T PUV MEROTjiic UNITS!' ); 
eutitt 24•11, / < Preaa RETURN to Centlnue >' ); 
reaertdel>; 
exitv busit) 
end; 

Dack ;=* ( *y<C 11 1. invent i i 3. fval ; 
if back<* then back:=P- 
lf n>anv<=oack then mm := many 
elae min := back; 
if »*?r«nn - ®iauor^rtl then 
beein 

red left : = redl^ft - ,nanv-*py«.C i i ]. opco*?T. * mir*<ysCil3-aecost; 
ra^eeent C 1 13 - ; 

rar i i3.uni t buy : - rar 11 1. r *n i tbuv - man**; 
ra C 1 13. : inventory : = re C 1 1 ]. i nuent cry + many; 
r^L :i ].oecoettr 1 : = rsfii3. oecoettt. I - ret 11 ]. oecost^many; 
reCi i ].uti l<ttl r^Ci j. ].ut i latt.l «f raf 11 1.uti le*i«iany; 
sye i * ra 
end 
else 
beei n 

bluleft blule+t - manv^ypf. t O.o»co<t - min*-sygC 11 3.apeost; 

oap«pent r =• ba-^eeent. * j i ]. .^ro-sr ; 

oaC 1 13. unit buy : = dcC 11 1. uni t buy - many; 

beCii].inventory := oefii3.inventory + many; 

oaC::3, npcn*= ttt 1 : = h* C i i ]. opr o?1111 * OsC113 . gpc ost^tmany ; 

bsC 11 ] -uti lw l := b«Ci 13 .ut i latT i ^ b^f. 11 ].uti la^any; 

= y a := 0*5 
end 

ena; Tbuy 11 > 

PROCEDURE SCRwPIT; 
oar 

oacx.mm : inte?er;del : char; 
bee i n 

if many\y then 
oe^in 

•: ieen*crepn; 
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eutm25#ia#'V0U SCRRP NE50TIUE UNITS*'>; 

put 1 t< 25 # 11 9 ' < Press RETURN to Cent, i nue >, 1 ; 
r*acK del >i 
*xit<scrapit) 
end; 

oack : * *ysC i i ].l nventorM—c.ye f 1i ]. tval; 
if backed then back: 3 *; 
if many<=oack then coin : - man** 
else min Dae*; 
if person = PlaversCl] then 
oesin 

red left red left + manv*pysCi i 1. opcost > min-HjysC 11 ], aecost; 

raeseent : - raeseent - min-<ysC u J, accost.; 

rsC i l ] .umtbuy rsC 11 ].umtbuy > many# 

rsC i i ]. inventory : = rsC 1 1 ]. lnventory - many; 

rsC 11 ]. oecostttl :* rsC i 1 1 . opcost. ttl - rsC 11 ].opcost^many; 

rsCii l.utilsttl := rsC i i 1 ,utx Istt 1 - rsC 11 3. uti ls*many; 

=.ys : = rs 
*nd 
else 
bee in 

blulef't bluleft +■ many*-*y*C l rl.OPCOSt +■ min*sysC: i ]. accost; 
baeseent : 3 baeseent - mirn^y*Cii1.accost; 
bsCll].unitbuy bsC i l].unttbuy * many; 
bsC11].inventory bstll].inventory - many; 
dsC ii3.oecostttl : 3 bsCi i]. opoo«tttl - bsCll].opcost*many; 
bsC i 11.uti lstt 1 bsfi i l.uti lsttl - bsCn].utils*many; 
sys := bs 
end 

end; <soraeit> 


Dee i n 

if person = »layersC13 then 
bestn 

budeet : 3 redbuoset.; 
left :* redLeft; 
aespent := raese^nt; 
lspent := rispent; 

^dspent :- rrdspent 
end 
else 
oesin 

Duaset :* oluhudeet; 
left bluleft; 
a^seent :- Dae^pent; 
ispent := bispent; 
raspent : = brdseent. 
end; 

?otoxyv 15# !£■>; 
l *' listthen 
oestn 

mmtelrKmany units of system '#sysCil].name#" do you want to 

•* * 

r»adln< many >; 
scrapit; 

eyiuDuyhowmuch ' 
end; 

i»r:teim "Hckm many unit* of system ' #sys C 11 ].name#' do you mart to »urc 
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hase'' 


neaalnn man*); 

if mi anv > sysC i i J.um t.Du* then checkJ ; 

ba : s < sysC 11 ]. inventorv+man'* >—s'-isC i i ]. tva 1; 
if ba<0 then ba:=0; 
if ii>anv<>ba then <ni : = u>anv 
else mi := Dai 

expense : - svs [ i i ]. aecost^m *■ *v«C 711. oprost-^manv; 
if expense > left then checks*'expense ' ; 

DU*lt 

end; f bushnwmuc h > 


PROCEDURE 6UVMENU; 

PROCEDURE NEXT1; 

PROCEDURE HEX12; 

Deem 

60T0XYn3S,13>; 

>*<rite< ' S' ,svsC i i ].uPcost 
SOTOXVn' 47,13>; 

•*«rite< syeL* ill. utils); 

GQTGXW 55,13); 

i«r i te< evs C 11 3.«m 1 t Duv); 

GOTOXYf S5,13 >; 

'urite< ' 11 1. OPcostTT). >; 

8OT0XV<! 73*13 ' ; 

<*<r i te< C 1 1 ] • ut x 1 sTTL '*•; 

•utit< 1 , 14,*' 


end; fnext 2 > 

Deem 

?Otoxw 1, ? ^; 

writeInn ■ 

•'; 

write In*. 

•*; 

writeinn y 

J i 

writelm y 

; 

writelrtf y 
j; 

writeInn ' 

•* i 

writelrK ' 

•*; 

put.ltt 4,rt,'MpnpTEn SYSTEM INPOPHOTTPM! ' % *; 

*t 1 1 < S, 10 *' OP PlJRCH 

TOTAL '■>; 


pijti t< 2> 11 * ' SYSTEM* TYPE > 

IHUF^TORV COST 

COST 

UTILS 

LIMIT 

0PC0ST UTILS 





GOTOXVn 2*13); 

write Inn =.ysC ill. name, /r '. 

.«<■*« C m ] . lort* ' ' ); 





bOTOXVn 21,13); 

wri teC :.y? C l i .1. i nupn* crj >; 

00TOXVv30,13 • r 

write* 'S' , -ss L 11 1. AO cost >: 

next2 
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and; 


•'* r>PVT. 1 


t n 

ciaar^craen; 

PUtlU4,l,'SVSTEH INFfiRHGTTON:' >: 

uO HP PURCH T 

OTP*. ■■' >> 

Puti v 2,4,'• SVSTEhK TVPE> IMUPHTOPV COST COST UTILS LIMIT 

OPCOST UTILS Ms 
GOTGXV< 2 , S > 

i«.irit* ln< syst 1 i3.n**>•?, / <' ,*v*f nl.sort,' >:' *>? 

GOTOXV* 21,6); 

urite< ■? v* C11].invantory >; 

G0T0XV<30,6>; 

«uri te< * s', sysC 11 ]. PQco^t >; 

GGTOXV< 38,6); 

writ **' S' ll.QPcost>; 

6GTGXV< 47 ,6 }; 

wr i te< Cii]. ut 1 15 >; 

SOTOXVC55,6>; 

write*sy*C ii ].unitOuv>; 

GQTOXVc* 65,6); 

«tirite< 'S' 11 3• OPcosr.TTL 

GOT OX V* 73,b >; 

write* svsC 11 ]. ut 1 1 sTTL >; 

duyhowmuch; 

nextl 

end i <* buvmenu > 


PROCEDURE WRITERIftST; 

De^in 

eotoxy<15,15)# 

»«ir i tei m ' 

' ;; 

writein* y 
' ); 

writein* ' 

; — 

Mr i t*l n* ' 

" :>; 

?otoxv\ 12,15 >; 

writeln* 'Enter the name of* f n<» 'nhn«*? inventors* you wisn to alter. 

end; ' mr 11 .ef i r^t 

PROCEDURE WRITESECONO; 
oeam 

?otoxy<15,14); 
writ*ln< ' 

* ■'' ); 

'nr i te 1 n< 

' >; 

wri teirK ' 

'); 

writeln* y 

y \- 

writeln* ' 

?otoxy* 15,15 *; 

writeln* ' Oo you want ?.q ^norher ' ); 
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?otoxy< 15#18 ); 

»tirit<?ln< 7 (Enter v or N> >> 

read* answer •; 

if < answer - 'V 7 ' or ' answer - 'y 7 > th*n 
exi t< buy > 
else case list, of 

# a 7 # 7 c 7 : ex 11 ( ops tatus ; 

'd 7 : exi t( austa? us/> 
end 

end ; i »nr 11 . <?<= ec ono > 

Desun 

for i := l to 100 do 
beein 

if i = 1 then wr i tefir<t 
else writesecond# 

PUtltC8#16# 7 

7 >; 

putit.( 17# 16* 7 7 Fo) l0'" with 9FTURN > 7 ># 

put.i t< 27 • 17 # 7 < Tyer 0 to Ou?t > 7 •; 

reading choice); 

if (choice 3 7 0 / > or (choice 3 7 -a' ') 
then c ase 1 i st. of 

7 a 7 # 7 c 7 : exit<opstatus )# 

7 b 7 : exit<awstatu*> 
end; 

n : 3 0; 

sot,it. :» false; 

reeeat 

l i :*nei* 

if (choice * svsCli3.name> or < n > numofsyetems ) then so tit. : 3 tru 
until sotit; 

if choice 3 svsEii3.name then hnymenn 
else 
cesin 
help; 
exit<buy > 
end 

end 

end; <*buy> 


oEGHENT PROCEDURE ROSTQTUS (person ; string; 

(Called from main menu. Provides for Prnrvrpment and display of new 
P&O opportunities# shelued P&O projects# and projects in work, 
wllows player to chanee the status of any project. Updates 
sneluirrs penalties and all RtO pveenditure fisure«.> 

•.'.ar 

puitflae : boolean; d : char; title : serine; le*'t., much ; mteeer; 
aespent# i spent# rdspent : intee*r; budget : array Cl..203 of integer; 

PROCEDURE F0HEPOER< inhere : integer); 
oeein 

ciearscreen; 

putit< 28 # where # 1 1 11e >; 

?otoxy<1#3); 

writeln<' VftS P&Q TOT voq vr t *jr 2 VR 3 wCO OF 

PURC 7 ;; 


no 


wr l te 1 nt ' NwME< TYPE > COMPLETED REC ,// D COST COST COST COST COST 
UTILS RPTE' >; 

writeIn 

end# i ron* ader 

PROCEDURE LISTIT < 1# counter : integer •# 
var 

1 # wan* : 1 nteser; 
beem 

i := 5 + counter; 

aotoxs< 1 # l > ; i»»ri t e< svs C i 3. nane -' < ' , s*-»s C i 3. *ort,' V > ; 
sotox*<16 # l );write*s*s Ci].*rofRaO>; 

«van* 0# 

if s*s[ l ] • *r3RaOcost > P then war* : = 3 

else if s*sCi3.*r2Ra0cost > 8 then <»an* : = 2 
else if syeCi3.*rlRaOcost > * then wan* := ti 
sotox*(2S #1 );wr t te< wan* >; 
eotox*< 32 , 1 ># write* ' s' #s*sC 1 ] . *rlPaOcn«.t. >; 
sotox*< 38# 1 >#wri te<' 'S' #s*sC 1 3 • urSRaOco^t >; 
sotoxy* 44,1 );write< 'S' , 1 3 . *r3Ra0cnst >; 

sotox** 50# 1 >; write* 'S' #s*sCi3 • AOcost 
aot.ox*< 56 # 1 >#wri te< ' S' ,s*sT 1 3 . OPcost >; 
sotox*< 63 # 1 );wr i te< s*sC 13. ut 11 s >; 
sotoxv* 70# 1 >*write* s*sC i 3 .eurl i wit.) 
end; Clistit) 

PROCEDURE CHECK# 
war 

L#n,deficit : integer; c : rhar; 

PROCEDURE WORDS; 
beam 

eotox*< 2#18 >; 

writeIn* 'If '-*ou continue with rhi« project snd do not scrap or shelve 
9n* other ' *:•; 

sotox**. 5,13)# 

writ el n< '< to lc*»«*r *our rostO *-iou will have 3 n annual defic 

it. ' Twice' >; 

sotox** 11,20'-’; 

writeln* ' this amount wi) 1 rhe*** he 'iprirt^ ^ron next *ear"s budeet. y ) 

; 

eotoxvv15,21 '; 

writeln* 'Oo *ou wi«n to continue witn »hi- mveetromt’*' )# 
sot ox* 20,22 ) # 

writeln* y *V nr N*' •; 

read< c j# 

if < c = y N' • or*c 3 'n' 1 than 
bee m 

c learscra®r>; 
exit* rdstatus ’> 
end 

end# Cworo«> 


oeem 

clearscreen; 

eutitc. 36, 1 , 'WARNING' ># 

eutit< 15#2#'Voi.t hao* not ano».»an f*'noa ne*>amm<i m the vear to wake' ># 
eutitc 15#3# y the desman m*'*•<?♦ ia«o r . y '»; 

?otox*< 17,5)# 
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s' * budget- t year 3 ) 


»nr 1 teln<' 8 u< 1 o*t.... 

?otoxy< 1 7, 7 ’>; 

ti.tri te 1 rK ' Ptioount ■? pent »r e* j t ous 1 y fnr a«* i m i t ion-?,,. pent .) ; 

sotoxyv 17 *8 >; 

mritelrK 'Pmount «e>ent. for Intel 1 ’^enre. #iseent># 

aotoxy* 17#S>; 

'•*ri teln< ' Pmnijnt «i ou * 5 1 y - »<=>nt for 8 and D. ....... -5" #rdspent>; 

r, : s ; 

for rt : = 1 t.o nuoofsyst eos tin 
if svsCn].delete - 0 then 
t. i 3 * t +■ sysCnl.opcostttl; 
eotoxyv 17 # 1 0 '>; 

>Mritelr*'Amount to operate all current.' >; 
eotoxy< 17#11 ># 

"iriralm ' \rv^ntor les... 

sotoxv< 17 # 12 > ; 

"triteln< 'Amount remain i ns... - ,.. S' * 1 aft..); 

eoto*y< 17,13 s n 

<>triteln< 'R and 0 costs < mcludins any penalty for ' >; 

eotoxy* 17*14‘>; 

writeirK' ' for otpapon system selected. -.. S' #much >; 

sotoxy< 17* IS'); 

deficit left - much# 

••triteln< 'Deficit. *............... .5' #def icit>; 

words 

and# <*rheck > 


PROCEDURE CRD; 
uar 

i * counter# inhere : inteeer; 


PROCEDURE CHOOSE1; 
oar 

e : strins# .» : integer; m : cn^r; 

PROCEDURE MONEYt; 

Deem 

if »ersnn = plaversCT] t.hpr 
Deem 

ftVJC h != ^sC-il.'-*^lP aOc nst • 
if much > nedleft. th*n check; 
nrdspent : = rr^rj-epent’. - rsf 1 1. yrtRaOcost.; 
red let't red left - reC j3.yrlRaGccst 

end 
else 
Deem 

much D«C.t T , yriPaOcost : 
if bluleft < ouch then check; 

Dr os pent •,-= crd'EPent. +> h«.i',i i. yr* &^fVr*ct.; 
bluleft := bluleft - dsCj 3- yri RaGcost 
end 

end; -f money! 


oe^m 

p«.»tit< 13#14#'- NOTE: ALL NEW P:<n PROJECT? HILL 86 
wjt,11( 19.# 15#" 4 SHELUED AT vEflPEHO UNLESS VQIJ -' <; 
®»j1.11.< 13 # 1S #' a NON DCc* t rn ATE -' >; 

aor.ovyi 17# 10 V* 
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i.»iritein< 'You ha*- 1 * 5' * 1 eft * '' r^ainina i n this vear''^. budset'>* 
putit< 7*20* '’Enter the nam<» of the system nthosp R^O vou wish to beam 

J *+ 

eutitt?*21 *' <Type "suit" to suit> / )* 

aotoxv* 85 * 20 ); read 1 r\< e>: 

if •; e - 'Quit' > or < e = .) then eyitXcrd; 1 

else 
Deem 

tor l 1 to n» «mofsvst ems ho 
bee in 

lf svsCi1.name = e then 
beam 
money1; 

sysCi].status :* 2* 

lf person - »)avensCl] then r« := eys 
else bs : 3 sys * 
c 1 earsc r *?n; 
aotoxy< 10*10); 

writeln< "R?0 funding has boon allotted to pursue system 

e • •' de^e i cement.' ) ; 

putit<10 * 11 *' < P^e«- s RETURN to c ontlnue >' > ; 

nead< o'); 
ey i r.< rrd > 
end 

end 

end; 

help 

end; Cchnnsei > 


beam 

counter :- ft; 

'uhere : * i; 
c1 parsersen; 

title := 'NEH R*0 op°ORTUnttie q/ s 
rdheader< inhere >; 
for i 1 to nuroofsystems do 
beam 

if <svsii1.vr&aOstarts <' = ^e*r • and < *y«C i ]. status 2 1) then 
if sysClJ.delete = 0 then 
beam 

counter counter t 1; 

1 1 st 1 tt 1 * counter ) 
end 

end; 
cnoose! 

end; •;* r rd > 


PROCEDURE CNftO; 
v%r 

mhere* 1 * count.er ; intoo«*r;. 

PROCEDURE CH00SE2; 
var 

e : strma; .1 : integer: m ? mar; 

PROCEDURE M0NEV2; 

PROCEDURE MQNEV2R; 
beam 
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i+‘ ©sC j ]. yrot'RaO - l 3 men 
deem 

drdspent : = hTd^p^nt. - * h* f. i ], «jr 1 RaOcost- +■ r>e C J ]. p*?na 1 ty > ; 
bluleft •= bluleft ^ < b«CJ ].yriRaOcost * bsC j ]• penalty > 
md; 

if bsCJ].yrofRaO = 1 then 
beam 

brdspent. := brdsp^nt - »' bsCj 1. yr.?RaOcost * ©sC j ].penalty >; 
bluleft := bluleft + <rb«C i 1.yr2Ra0cost e bsC.j]. penalty> 
*nd; 

if bsC.j ].yrofRaO = 1 then 
deem 

ordseent : = brdseent - < ds [ j ], yroRaOcost > ds C J ]. pena i ty >; 
bluleft := bluleft + (bsCJJ.M-rTRaOcost + bsCu1.penalty> 
and 

and; <’jY>nney2=0- 


baa in 

l f Mr?on - p ) ayers Cl] than 
beam 

if rsC .• ]. yrofRaD = Q than 
beam 

rrdspent. : = rrdsppnt. - * r< C.> 1. yr t RaOcost **■ rsC j ]. Pena i t_.y >; 
red left : = red left + < r^.C.j ]. yrlRaOcost + rsC j ]. penalty • 
and; 

if rsCjl.yrofRaO = 1 then 
beam 

rrdspent. : = rr*depor>t. - < rsf .i 1, yr2Ra0cost. + rsC j ]. penal ty >; 
red left red let't + •' r<c J1. yr:2Ra0cost + rsC-j 3. penalty ':» 

and; 

if rsCJ]. yrofR.aO = 2 then 
beam 

r^d«p**nt rrdeppnt - •' rsf j 1. vr^RaOcnet. +■ rsC j]. penalty>; 
r^dlpft. := r**dlaft e *:' r<C j 1. yrlRaOcost. r rsC-j 3. penalty > 
and 
mo 
a 1 =e 
moneyed 

and; fiocnp^2> 


beam 

?otoxy< 17 j t. 9 >; 

"*riteln< / Vntj haup 5'.lp*'t *' r«**at nirv» m this year''^ bUdeet y *; 

Put it/ 7 #21 / 'Enter the namp of =»n«-» s^fpm tnhosp RstQ ynu «*«i=h to sheit'p 

PJUW7 *22*' 'Typo ' aijit" r.o =*uit> 

antoxyC Kb .• .21 >; read l n< a ■ 2 

if » p = Quit') or '.a - ' ^uit > t.hen e v it<cnrd) 
a 1 

baem 

fnr ; 1 to nMmnf=y*row? do 

beam 

l f v-»« C ; ]. name = a * hen 
beam 
money2; 

ays Cl].status := 3; 

if ppr^on - pl^ver^Ct] t^ori *~s := =y« 
else b< := sys; 
c 1 aar^crppn; 


114 


3CtOXV< 10»10 > * 

«»mi telnt'R jcQ fundin'? has cut fnnm further pursuit of svste 
\<\ ' dev* 1 opment. y >; 

put 11 < 10 • 11, y <Press RETURN to continue >' ) ; 

read< * ); 
e>a^< cnrd > 
end 

end 

end; 
ne ip 

end; O: hoo^eS> 


Oesi n 

counter r = tf; 
inhere : = 1; 
clearscreen; 

title := 'CONTINUED *K0 OPPORTUNITIES'? 
roheader< inhere >; 
for : :® 1 to numofsvstens do 
bee in 

if (.svsClJ.vrRaDstarts /= *ear> 3rd <svsCl3.status » 2> then 
if svsCl].delete - 0 then 
be^in 

counter :* counter * l; 

1 1 st 1 t<l* c ounter> 
end 

endi 

chooseE 

end; <>nrd> 


PROCEDURE SRO; 
var 

itihere^ l » counter : mteeer: f : rMr; 


PROCEDURE CH00SE3; 

*'ar 

e i strins; » : integer? m : char? 

PROCEDURE M0NEV3; 

PROCEDURE H0NEV30? 
besin 

if Os Cj 3.^rofRaO = 0 rhen 
besin 

much d*£j 3. ^rt RaOcost. * nsCJ ]. penal tv; 

if much > bluleft then check; 

ordseent := brdspent + < bsCo 3. yriRaOcost * bsCol. penalty.;; 

bluleft := bluleft. - < b*CJ 1. vrlRaOcost e bsCJ 1. penalty > 
end; 

if osCJ].vrofRaG = 1 then 
Deem 

much OsC-i 1.‘^SPeOcost -*• bsf j ]. penalty; 

if much > bluleft then check; 

ordseent := ordspent * tbsCo3.vrSRaGcost * bs£ j 3. penal tv >; 

bluleft bluleft - < bsCo ]. ^r^RaOcost * bsCJ 1. penalty > 
end; 

if osCo 3.srofRaO = 2 then 
oesin 

muc h : - o«. r o ]. vrERaOc o« t o« C J 3. eena 1 tv; 


115 


if much > bluleft thPn check; 

ordspent. := r>rdspent +* f b«.f n. yrTRaOcost t bsCj ]• penalty '; 
b 1 u 1 ef t : = b1 u l eft - < b«. C J 1. yr TRaOc o<t + tfs C J 3. pena 1 ty ,• 
end 

end; C mone^a> 


oe-ein 

if person = pl^ye^Cl] then 
beei n 

if r<CJ]• yrofRaO - ft then 
beem 

much := r^C »3. v*MRaOco«.t. j- 3, penalty; 
if much > redleft then cherk; 

rrdseent : = nprt«eer>t + < r«-Cj] t *-»r!FaOcost +• rsCj]• penalty>; 
red left. := redlpft - < r« f.n. yrlRaDcost e rsC j 3. penal ty ^ 
end; 

if rsCJ]•yrofRaO = 1 then 
bee in 

much t = r«C-»3. y^2Pa0coft +* j].penalty; 

if much > redleft then rhprk; 

rrdeppnt. := rnd«ppnt * *• nc f .i ]. vr2Ra0cost t reCJ ]. penalty‘>; 
redleft := redleft - ^ ref i ]. y^2Pa0ccrst + r«CJ3.penalty > 
end; 

if rsCJ].yrofRaO = 2 then 
de<*m 

muc h i — ne C 1 3. yr?R aOc net. * n = C -j 3. pena 1 ty; 
if much > redleft then check; 

r~d?pent : - rrd« pent, + < r* C • 1 3. yr3Ra0cnet- +■ re-C j 3. penal ty >; 
red 1 eft : - r^d 1 pf t - f re r .j 3 . yr3Pa0c ost + rs C J 3. pena 1 ty > 
end 

end 

else 

money.3 a 

end; f iw»i*«»y 3 *'• 


PROCEDURE 1.133"; 
var 

k * count. • mteeer; 
begin 

clear<creen; 

putit< Ih^l/'PPWLTV PRIPPc; pop RESUMING PR0JIOUSLV SHELUEO R&O PROJE 

p»j 1 1 1 *( 25*3*' 3ystero< T> Rena 1 ty ' ); 

count := 5; 

for k := l to nuroofeyeterne do 

lf < sysCk 3. statue = 3') =»nd ' jy* Ck 1. de 1 Pte = ft ;• then 
hpoin 

got.n vvk 2'h • C nnnr i; wr* =.mc. f U 1 , n erne »' ( ' • s^e C k ]. sort * >' ) > 

eotovyC 35»c ount); t«»r i r e< ' 5',« w«. r. y ]. »ena 1 ty :»; 
c ount : = •: ount * 1 
end 

end; *n.iet> 

bee in 

putitv 15*21 * y FntPr ft to 9d*..»anrp p^ee to "ip^ penalty prices ' r ; 

Put i t ( 15 * 22 * ' <' Pnr. 0 t, o p» i i r. > > '); 

rea«d< f >; 

if * f = '■ Q / .i nr ,y f = ' p' "> r hen ev^ r <: «rd i; 
l i-st; 
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?o toxv^ 1? • 1S>; 

uri telnv " Vw nave S'* 1 ef ♦ ,' r«fr..^ir>T ng m tnis vear"s budget' >; 

pi.it.itC 7#21 j 'Enter 1 the name of any eyctPiYi ninose R&O vn»j mish to nwuw: 

' ..*; 

& u t i t < 7 * 22 *' f T vp® y ' an 1 t y ' r o au 11 > ' .:•; 

gotoxv* 88 # 21 > i resd i n< e »; 

if < e = ' Quit/ > or <e = 'suit/> then srd> 

else 
begin 

for i : = l r n nu oofs vs* etns oo 
begin 

if svsC 1 3• name = * then 
begin 
money-? p 

svs Ci]•status := 2; 

if person = piv^er , «Cl] th«n ns : = tvs 
p 1 ~ e bs : s svs ; 
clearscreen ; 
gotoxw 4,10>; 

uniteln< 'ft&O funding nas resurrected for further pursuit o 
f system ',e,' development.'^: 

put. 1 1< 1Q , 11,' s kET* IRN to c ont i nue >' "> ; 

resd^ »n ); 
pviu srd) 
end 

end 

end; 

help 

end ; > r c. hoo< e ? > 


begin 

counter :=» 
where : = 1; 
clearscreen; 

title := 'SHEU‘EO P*0 OPPORTUNITIES' ; 
rdheader< lunere •; 
for i := 1 to numof■systems do 
begin 

if <svstl].vrRaOstarts <r = *-»*ar ' and • r-*sC i ]. status = 3 %t then 
if svsCl].delete = then 
beam 

counter counter 1; 

1 ist:t< i, counter 1 
end 

®nc; 

choose? 

end; <md> 


begin 

auitflag := false; 
repeat 

if »erson = p 1 avers C11 then 
begin 

left := redleft; 
budget := reobudset; 
aaseent := rgggpent; 
i spent := rispent; 
rdspent : = r*~dspent- 
end 
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‘iJMi n 

1 eft := oluleft; 
budget := blubuds*t; 
wp<?nt : = oa^spent: 
ispent ;* bispent; 
rdspent :» brds^ent 
end; 

clearscreen; 

pumuzo^'peseprch qno he*jelqphent project stptus'>* 

putit< 22^S# 'P.. .HEW OPPORTUNITIES' >s 

put:t< 22, 10, '8. ..CONTINUING OPPORTUNITIES' ■>> 

wtiu22*12#'C...SHELUEO OPPORTUNITIES'>; 

p»JtiV22*14#'Q...QUIT' >; 

reacK d >; 

case d of 

: CF:0; 

'8'#'b' : CNRD# 

'C'*'c' s SPO; 

'O'j'a' : eyitflae :* tr*jes 
otherwise help 
end 

until ^uitflae 

end; ( rdstatus> 
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THE FOLLOWING 3ESMFNTEO PPorp nnacc qdc rnMP!LF r * wwo tnRFPTEO t N THE MWIN 
PR06RPM PS BPTCH 2B IJSINB THE COMPILER ' INCLUDE"’ OPTION# DUE TO FILE 
SIZE CONSTRAINTS,> 


SEGMENT PROCEDURE 6ETPLL; 

i Initial ires all parameters if same 15 a rwLWPtion.) 

PROCEDURE 6ET0NE; 

var 

templfile : flip of temp; 

Deem 

reset* temp t f i 1 e >' TEMPO: tempo t. data' >; 
filth temp 1 f 1 1 e^ -Jo 
Desi n 

year: *tve ar; red 1 eft: *t red 1 ef t; D1 u 1 eft: =tblul eft; 
ramsperrt:=tramseentibamspent:^tbaeseent ; 
r 1 spent: =tr 1 spent #01 spent.: *r.bi spent.; 
rrdseent:»trrdspent;0rdspent:=tbrdspent; 
numof systems: =tnumofsystems; 
roa:=troa;roo:*troO ;r da:=trda#rdto:=t rdb ; 
boa:=tboa#boD: =tboo#bd3:=tbda#bdb:*tbdbi 
ro:=tro;rd:=trd; rrdo:*trrdo; rrdd:-trrdd; 
fro: *t f ro # f rd: =tfrd ; f rrdo: *tfrrdo ? f rrdd: *tfrrdd ; 
bo:=tbo #Dd:=tbd;brdo:=tbrdo;brdd:=tbrdd ; 
fbo: *tfbo#fbd: *tfhd;fbrdo: =tfbrdo; fbrdd: =tfbrdd; 
marc ont:«twarcont;rrtr:*tprtr ; 
p 1 avers: =tp 1 aver*; redbudeet: =^redbuds»et ; 
biubudset:*to1ududeet 
end; 

close< temptftie#lock>; 
case prtr of 

'V : remritei z# y .RSZ72'■'»; 

' 2' : remrite< r#'. 3ILENTVPE'’> 
end 

end; *] ?e t one! s 

PROCEDURE dETTWO; 

• jar 

tempPflie ? file of sv^ten^; 
bee in 

reset*temrSflie#'TEMPO:temro2,data' 
rs := temeZfi1e^; 
eet', temp^f i 1 e): 
bs :* temeZfi 1 e~; 
set< tempgf 1 1 e > ? 
close< temp2f 1 le#lock> 
end; 

oesin 

?etone; 

eettiMO 
ena; 


f settmo} 


\ set a 11 } 


119 


(ThZ pot i nwiH* MOWceftHCWTcp ocnrmnorc noe ,^on cn cun TNRPPTFO IN THE HA IN 
PROGRAM AS BATCH 1A USING THE COMPILER 'INCLUDE' OPTION# OUE TO FILE 
SIZE CONSTRAINTS.> 


PROCEDURE INUENTORV <a, y : rntwr); 

{Called by routines Oestatus and Austatus. Provides listing of 
system parameters.> 
besin 

y :« y + 7; 

GOTOX'A 2,y >; 

write irK sysC3].name,'<' »sy*Tal. sort• ' Y ,' :' ); 

GGT0XV<21,y); 

write<sysCa3.inventory); 

G0T0XV< 30,y>; 

wr 1 1e<"S',sysC a3.AOc ost >; 

GOTOXV<38,y); 

write< ' S' ,sysCal.OPcost); 

BOTOXV<47,y); 

wri te< systaJ.utiIs); 

GOTGXVC 55,y >; 

wr: te< sys C 3 3.unl tbuy >; 

SOTOXVt b5,y); 

writer 'S' ,sysCa3.0PcostTTL)s 

SOTOXYC73,y>; 

wr 11 e< sys C a 3. u 1 1 1 sTTL ); 

end; C inventory > 


PROCEDURE UPDATE (person : strins; amount ? integer); 

{Performs annual handshake with player*, in turn, and verifies codewords 
for access.} 
var 

d : char;flas : boolean;word : strme; 

Deem 

c 1 e arscreen; wr i te t n ;mr i te \ n; 
flaa := false; 

"«ritelrtt ' Vcu are about to oesin year ',year,' of TEH 

PO. ' >;write In; 
writeln; 

writeln<' '.person,' i« 'Momentarily to make his/her annu 

a 1 ' >i , 

writeln<' buasptary decisions.'); 

write infinite In; 
repeat 

writ.e< ' EHTFF CODEWORD* cursor remains fixed): ' ’>; 

re ad In* kevboard,word); 

if < person^®layers! 13 > and < morjspl ayersC31 ) then flas := true 
else if < person=»iayersC23 and i.ion*» l ayers C 41) then flas true 
else 
oeein 

PUMU0.8,' CODEWORD WRONG* TRY AGAIN 

« ' >; 

put: t* 0,9,' 

' ); 

?otoxy<w.3) 
end; 

until flas; 
wr item; wr i te l n ; 

write in* ' The buds*»t for this year is s', amount); 
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iur 1 te 1 n r s 


^This fdn»»« ^nt ro* 1 <?rt m^pntorv operating cos 


ts' :,i 

writelrft ' tor the current, vear. **ee the hair Menu for wore ini'or 

mation y 

writeln;writeln;writeln;wri* el ns 

writel rtf' Press RETURN to obtain the Ha in Menu.'’); 

reacK d) 

end; Cupdate> 


PROCEDURE NHOPLRVS; 

CObtains Plaver information fmm a datafile created Dv parent chained 
prosram.> 

Mar i : inteeer; 

datafile : file of rtrine; 

Deein 

resetc dataf i le* 'TURNKEV1 jname.dara' ) ; 
for i :* l to 4 do. 
beam 

p 1 avers Ci] := dataf 1 1e^; 
se%<datafl1e;; 

•C'tiriteln< el avers C i ] >> 
end; 

close< datafile > 

end; Ovhoplavs> 

PROCEDURE PdGEl< P*r*on : strme; list ; chsr); 

<Called bv Opstatus and Austatus routines. Provides for the 
appropriate paw headers. > 
oar 

choice : char;left : intewr; 

D^e in 

if person = p 1avers Cl] then 
left redleft 

else 

left : = bluleft; 
sotoxv< 15.15 j; 

'•iritelrK y Vou cr "~rem.lv haue s'.Jpft.' t,n rpord *'or the fiscal vear / >; 
if 1 ist-'a y ' then 

putitc 13# 18.'<Pness P r o purchase* ’? to sc~ap '.mts nr RETURN to exit> 


else 

®utit* 20. 18*'<Press P to p^rch^s* 3 nr RETURN 
neadC choice>; 


c ase 




choice 
*'>' : 


of 

buv* person* 1 ist. >; 

Oppi n 

1l«t:»'C'; 

person . 11 s f ^ 

end; 

case list nf 

a" *" c' : ex l t< ops tat us 
• h' : exitt ^ustaf-us ^ 


end 

otherwise 

beam 

neip; 

case list of 

' a' >'c' : exi tt opsta*us •'; 
/ b' : exiu austatus i 


to py 11 >" >; 
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'•'pawl > 


end 

end 

end 

end; 


PROCEDURE PfiGE2<person 
CSee rout.in* Pawl.} 
oar 

choice : char;left 


string; list : char *; 

\ pf. ; 


PROCEDURE wOUPNCE; 

Deem 

clearscreen; 
case list, of 

: putit<23*2#'FORCES CUPRENTLV 
'b' : p*/tit< 28/2#'FORCES OUPILRBLE 
end; 

Put. 1U3|4/ CiM 

OTftL ' 

put. it< 2,5#'SYSTEM* TVPE '> INUBNTORV 
OPCOST UTILS 
writeIn 


IN INVENTORY' >; 

BUT NOT IN INUENTORV- ’> 

OP PUrtCH 

rnsT COST UTILS 


end; 


C pdvanc e *> 


LIMIT 


T 


oesin 

if person = el aversC11 then 
left := redleft 
else 

left :=• D1 u 1 eft; 

sotovMk15#15>5 

writ*ln< 'You currently haup $'.left .to spend for tne fiscal year' 1 ; 
if list-'s' then 

putit<7,2S#'' 3 ress p r n purchase* to ecrsp units or R for nex 

r. r»app >' "* 

else 

putitv IS# IS• '* Pre<s P tr> purchase or Q *'nr next pase > # >; 

*»utit*27,i8,'** mDOITIOH^L POGE? PmI ON — •; 
read* choice ); 
case choice of 

: OUVK P*r-«on, ) 

'S'#'s' : besin 

list:*'*:'; 
buy< person#1 i st > 
end; 

fa" : advance 
otherwise 
beam 
help; 

case list ?f 

3' *'r' ; eXlt- r OPS* ST.ijc 

b' : exit<austatus> 

end 

end 

end 

end; -f Paee2} 

PROCEDURE OPSThTUS; 

<1 Recessed fron ma i n menu. Ollnw« } t *r. i np n+ %)] rustems cur^^nt m 
inventory. Provides for system purchase* -no :r^?p*>in-3 through calls 
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to the buy subroutine "ia Pasel or Pase2.> 

■•'an 

d*1 1 st : char; 1 ,k /counter : i nt.eeer; 
beem 

list 'a'i 
fo r k :» 1 to 1000 do 
beem 

counter ;= 0; 
clearscreen; 

put11< 28*2#' FORCES CURRENT)..? IN INUFNTORV'^ 

Put 1 1< 0*4,'' PO OP PIJRCH 

TOTmL ' >; 

eutit<2/5/ y $VSTEM<TYP€> INUENTORV POST COST UTILS LIMIT 
GPCOST UTILS y >; 
writeln; 

for i 1 to numofsystems »ro 
beem 

if ' sysC l J. yrauai 1 < - ) ard < sysC 1 3 , inventory/# ) then 

if *ysCi 3. delete = 0 then 
beem 

counter := counter + l; 

if COUnt > 4. f^Pfl 

bee in 

counter ? = 0; 
paee2< person * 1ist) 
pro; 

inventory*: i /Counter > 
end; 

end; 

eaeel< person*1ist> 
end 

pnd; <*opst.atus> 

PROCEDURE mUSTQTIJS ; 

i. Recessed from main menu. ann«« listing of ?\ \ svsterns availaole out 
not yet in inventory. Provide* for sverpm purchases and scrap^rne throush 
calls to the buy subroutine "ia Pasel or D a«e?.> 
var 

d/list : char;i,k/counter : integer; 
bee in 

* list := y b y ; 

for k : = 1 to 1000 do 
Deem 

counter := 0; 
clearsc^een; 

put11< 28 * 2 * y FORCES QUPILPRLF RUT NOT IN INUENTORV'); 

Putit<R/4,*' wn OP PORCH 

TOTPL '' a 

putiV2/0 *'SVSTEM<tvpe> TN“ENTDRV COST COST UTILS LIMIT 
OPCOST UTILS y 
•••rite In; 

for : : = l to nymof-systems do 
besm 

if k sysC l ]. yravai ) '= year) and *' sysC i ]. inventory 3 #> then 
if s’^sC l ]. delerp 3 0 t hen 
beem 

counter := counter * 1; 
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if countan > 4 than 
baam 

c ount.er : - 0 ; 
paa<?2< par-son * list > 
and; 

inventory* i *counter> 
end; 

end; 

p^eeU person r 1 1 st > 


and 

end; 


*laostatu5> 


PR0CE0UR8 CURREMTSTOTUS< person : strin*;; 

{Supplies current player budeet stairs,'} 

'>r*r 

m* i»j * 1 eft *aa*eent # ispent. #rdfp**nt : int-peer;sysdudeet : array C1..20 3 of i 
nteser i 

d : char; 

PROCEDURE COSTS; 

Deem 

J := 10; 

for l :- 1 to numofsystem* do 
Deem 

if < svsCi 3.0Pcostttl >0"* and ^sysfi3.yraoai1 <= yesr> than 
if sysCi3.delate = O then 
Deem 

J :» J * t; 

ectoxyc 1 1 • j );write< *^*st i "I. name, y ' ' >sys[ l ] . <ort* y y >; 

SOtOxy< 30#J )*i»ir 1 te< <y<C 11. in*'Pntory > ; 

*Otdvy( 'i;hirir^ 'S' ,*ysC 11 , OPCnstttl } 

and 

and 

ana; { c(O c t c } 

be* in 

if person = * layered] than 
beam 

=vsoudeet : = redoudeet; left r® redlpf't; 
a-pseent := raespmnt; i apart : = rlapart ;rdepant : = rrdsppnt 
and 
a 1 se 
Deem 

sysdudeet :- d luoudeet;1pft :- d1 • • la* *; 

a^pant : - basspent;ispent : = bi«ppnt.;rdspent := brdspent 
ana; 

<: learscreen; 

put i u 30 * 1,' BUDGET INF0RHOT1 ON' > :mr i tP l n; so toxy< \ ?,3 >; 

"trir.pi 'Year: y ,aear );aotoxy< 32>3 >: 

write*'Total Annual Allowance: $' *svsdud?etCyear3 >; 

sotoxy<' 5 >5) * 

’»<ntaint' Amount apart in acquisitions. -..... s' ,aespent>; 

?otoxy* 5#R 

writaint 'Amount apart on intal 1 mence..... S' *ispent;; 

sotoxyv 5#7'-»; 

"•ritalm ' Amount. spent on R and D, ........ s' ,rdseent >; 

sotoxy* 5*.9);»tiritein<'dp^atme coats by system (those in inventory >: •; 
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Oh ant it .<-* 


Tntal Operatin'? Costs'' > 


■Mr 1 tel n; 
writelrK ' 

*: osts; 

(•*) **ear r 1 ; 

?otoxv<IQ>20 )i 

"»riteln<' Expected defence oudset **or» next vear: s' ,redbud?etCm] >; 
?otoxyC 24,21 >; 

writelrK 'Total Monies Remain ins : $'>1 *♦>.>; 

putit< 21 >22>'^Press RETURN to return to main menu >' >» 

?otoxv\ 1 >22 );r»act; d > 

end; <currentstatus > 
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